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NEMAR PLOTTING COMPUTER PROGRAM 


by T. R.^yl^er 
Vought Corporation 

SUMMARY 

This report describes a FORTRAN coded computer program which generates 
CalComp plots of trajectory parameters. The trajectory parameters are 
calculated and placed on a data file by the Near Earth Mission Analysis 
Routine computer program. The plot program accesses the data file and 
generates the plots as defined by inputs to the plot program. Included in 
this report are program theory, user instructions, output definitions, 
subroutine descriptions and detailed FORTRAN coding information. 

Although this plot program utilizes a data file created by the above 
mentioned trajectory program, a data file of the same type and format could be 
generated by any computer program and used by this plot program. 
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1.0 INTRODUCTION 


The Near Earth Mission Analysis Routine, acronym NEMAR, Reference (1), is 
a highly flexible and comprehensive trajectory computer program. It simulates 
either powered or unpowered vehicles in atmospheric or exoatmospheric flight. 
The equations of motion of a body in either three or six degrees-of-freedom 
are numerically integrated to determine the trajectory time histories. 

Printed output is available at any desired time interval and includes up to 83 
trajectory parameters. These same 83 parameters are written on disk to be 
available for subsequent plotting by a plot program. The computer program 
written for this purpose is the NEMAR Plotting Program (acronym NEMAP) and is 
described herein. 
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2.0 DEFINITIONS 


Flowchart conventions used in this report are as follows: 


Process 



Input /Output 



Subroutine 



Decision 
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Subroutine Call 




3.0 PROGRAM DESCRIPTION 


This section describes program theory, user instructions and output 
definitions. 


3.1 Program Theory 

The NEMAR Plotting Program utilizes the CalComp pen plotting facility. 

This facility consists of the CalComp 763 pen plotter hardware and the CalComp 
Basic Software Package, Reference (2). The subroutines available with this 
software package are used to create a plot file. 

NEMAP consists of a main program, which extracts the data to be plotted 
from the data file and generates the plot file, and several subroutines which 
assist in generating the plot file. The data file resides as a random access 
file which is generated by NEMAR. A random access file has records that may 
be read at random, as opposed to a standard file which has records that may 
only be read in succession. 


The random access data file format is as follows: 

Record 1 - 102 integer numbers 

Word 1 - record number (n) of first record of Case 1 data 
Word 2 - record number (m) of first record of Case 2 data 


Word i - record number of first record of Case i data 


Record n (first record of Case 1 data) - 2 integer numbers; 100 floating 
point numbers 

Word 1 - not used 

Word 2 - not used 

Word 3 - first trajectory parameter 

Word 4 - second trajectory parameter 


Word i - i th trajectory parameter 


all trajectory 
parameters at first 
time point of 
Case 1 
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Record n + 1 (second record of Case 1 data) - 2 integer nxmbers; 100 
floating point numbers 

Word 1 - not used 


Word 2 - not used 
Word 3 - first trajectory parameter 
Word 4 - second trajectory parameter 


Word i - i th trajectory parameter 


all trajectory 
parameters at second 
time point of 
Case 1 


Record m - 2 (last record of Case 1 data) - 2 integer numbers; 100 
floating point numbers 

Word 1 - not used 
Word 2 - not used 

Word 3 - first trajectory pareimeter 
Word 4 - second trajectory parameter 




all trajectory 
parameters at last 
time point of 
Case 1 


Word i - i th trajectory parameter 
Records containing the trajectory parameters (n through m - 2 above) are 


repeated for each case, each case being a single trajectory. 

If any computer program creates a random access file in the above 
described format, the NEMAP program can be used to plot the data. 


3 . 2 User Instructions 

NEMAP uses a modified FORTRAN NAMELIST for inputting data which provides 
the user with readability and simplicity of use. 

The following rules apply to NAMELIST used NEMAP: 

1. First card of a data group or case is $INPUTD beginning in colim»n 2. 
Blanks are not allowed. 

2. Last card of a data grov:p or case is $END beginning in column 2. 
Blanks are not allowed. 

3. Blanks may not be used within names but may be used elsewhere. 

4. Variable names are followed by an equal sign which is followed by a 
value which is followed a comma , e.g., FACTX = 1.852, 

. Only columns 2-72, inclusive, are used. 
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6. Titling information may be input by the appropriate title names, 
e.g. , TITLE1= ALTITUDE - RANGE PROFILE 

TITLEl must begin in column 2. 

7. Any number of names and values may be on a single card or Ixne. 

8. Complete data arrays are input in the following form; 
name = value, value, value, . . • , 

Data values may be continued on the next line, but the last character 
on every line must be a comma, excluding title cards. 

9. Repeated data values may be input by using a repetition factor and an 

asterisk, e.g., FACTY = 1.852, 2*. 00016458, 2*1.852, 

10. One or more specific elements of an array may be input, e.g., 

FACTY (5) = 1, 

Subsequent data cases are allowed by providing additional sets of NAMELIST 
data. All input data is retained for subsequent cases but can be changed by 
inputting new values. 

Sample data cases are included in Appendix A to exemplify data case setup. 
Execution of NEMAP requires that the CalComp Basic Software Package for 
plotting be available to the computer job at the time of program load. 

Definitions of specific NAMELIST inputs to NEMAP are shown below. Default 
values are shown when they are set by the program prior to reading input data. 


NAMELIST Input Definitions 


CALCODE Two digit integer specifying the graph paper for 

plotting. Installation dependent. (31 built-in) 

DBA Distance between annotation in units of graph 

paper. (2. built-in) 

FACTX Multiplier applied to X-axis parameter before 

plotting. (1. built-in) 

FACTY Multiplier applied to Y-axis parameter before 

plotting. Array of 8 values. Input a value for 
each frame. (1. built-in) 
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NAMELIST Input Definitions (Continued) 


H 

HLABEL 
HTITLE 
I CASE 

IDIV 

IFREQ 

IPAPER 

ISYM 

IX 

lY 

LINTYP 


NCURVE 

NFRAME 

PLABELl - 
PLABEL9 


Height of X- and Y-axis annotation, inches. 

(0.1 built-in) 

Height of PLABEL characters, inches. Array of 9 
values and same order as PLABEL. (0.1 built-in) 

Height of PTITLE characters, inches. Array of 4 
values and same order as PTITLE. (0.14 built-in) 

Trajectory numbers from which to plot data. The 
first trajectbry on the random access file is 
always number 1. Input if NCURVE is greater than 
one. Array of 10. (1-10 built-in) 

Number of minor divisions per unit of graph paper. 
(10 built-in) 

Frequency of extracting data for plotting. 

For example IFREQ = 4 specifies that every 
fourth point is plotted. (1 built-in) 

Paper selector 
= 1 if inch paper 

= 2 if centimeter paper (2 built-in) 

Integer representing symbol to be used in plotting 
data. See Table 3.1. Array of 10 values. Input a 
value for each curve in a frame. (0 to 9 built-in) 

Code number of parameter plotted on X-axis. See 
Table 3.2. 

Code number of parameter plotted on Y-axis. Array 
of 8 values. Input a value for each frame. See 
Table 3.2. 

Parameter specifying plot line type. Zero produces 
a line, a positive value produces a line with 
symbols, a negative value produces symbols without 
a line. Magnitude determines frequency of plotted 
symbol. Array of 10 values. Input a value for 
each curve in the frame. (0 built-in) 

Number of curves per frame. Maximum of 10. 

(1 built-in) 

Numbers of frames. Maximum of 8. (1 built-in) 

Labels written on plot according to XLAB and YLAB. 
Maximum of 30 characters. 
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NAMELIST Input Definitions (Continued) 


PLENGTH 

Paper lengiii in inches from one frame origin to the 
next. (17* built-in) 


PTITLEl - 
PTITLE4- 

Titles written above plot. Maximum of 30 
characters. 


TITLEl 

TITLE2 

Titles to identify data case. Maximum of 72 
characters. 

- 

XAXISl 

X-axis annotation. Maximum of 30 characters. 


XLNGTH 

X-axis length in units of graph paper. 
(l6. built-in) 


XLAB 

X distance from origin for PLABEL labels in units 
of graph paper. (18. built-in) 


XMAX 

Maximum value plotted on X-axis, units as plotted. 
(l.ElO built-in) 


XMIN 

Minimum value plotted on X-axis, units as plotted. 
(O. built-in) 


XSINC 

X-axis annotation increment, data units per major 
division. Automatically scaled if zero. 

(O. built-in) 


xsmN 

Leftmost annotation of X-axis. Automatically 
scaled if XSINC is zero. 

(O. built-in) 


YAXISl - 
YAXIS8 

Y-axis annotation for frames 1 to 8. Maximum of 
30 characters. 


YLAB 

Y distance from origin for PLABEL labels in units 
of graph paper. (lO. built-in) 


YNLGTH 

Y-axis length in units of graph paper. 
(20. built -in) 


YMAX 

Maximum value plotted on Y-axis, units as plotted. 
(l.ElO built-in) 


YMIN 

Minimum value plotted on Y-axis, units as plotted. 
( -l.ElO built-in) 

- 

YSING 

Y-axis annotation increment, data units per major 
division. Automatically scaled if zero. 

(O. built-in) 
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NAMELIST Input Definitions (Continued) 


YSMIN Leftmost annotation of Y-axis. Automatically 

scaled if YSINC is zero. (0. built-in) 

3.3 Output Description 

The NAMELIST input data card images are listed as read. This list 
provides a quick check of the input data for format correctness and validity. 

For inspection purposes, the data plotted is listed with scaling 
information. Sample output is shown in Appendix A and includes plots produced 
by each data case. 
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TABLE 3*1 


PLOT SYMBOLS 


Integer 

(Input as ISYM) Symbol 

0 El 

1 O 

2 A 

3 + 

4 X 

5 <> 

6 ^ 

7 X 

10 X 

11 

14 ^ 

28 R 

29 B 

30 L 

31 D 

32 E 

33 F 
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TABLE 3*2 

PLOT PARAMETER CODE NUMBERS 


Code 

Number 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 
15 

14 

15 

16 

17 

18 

19 

20 
21 
22 
25 


Parameter 

Symbol 


qa 

/3 

Yl 

^R 

Cl 

Cr 

0 


e 



Qc 

n 

t 

p 

Q 

R 

A 

Y 

N 


Parameter Definition 
Angle of attack, deg 

Product of dynamic pressure and angle of 
attack, deg-lb/ft2 

Angle of sideslip, deg 

Inertial fli^t path angle, deg 

Relative flight path angle, deg 

Inertial velocity heading, deg 

Relative velocity heading, deg 

Body roll angle, deg 

Body heading angle, deg 

Body elevation angle, deg 

Integral of inertial pitch rate, deg 

Commanded pitch rate, deg/sec 

Pitch attitude error or 

Total aerodynamic angle of attack, deg 

Flight time, sec 

Body roll rate, deg/sec 

Body pitch rate, deg/sec 

Body yaw rate, deg/sec 

Axial aerodynamic force, lb 

Side aerodynamic force, lb 

Normal aerodynamic force, lb 

Axial acceleration, g's 

Side acceleration, g's 
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TABLE 3.2 (Continued) 


Code 

Number 


24 

25 

26 

27 

28 
29 


30 

31 

32 

33 


34 


35 


39 

40 

41 


PLOT PARAMETER CODE NUMBERS 


Parameter 

Symbol 

Nz 

VrA 

Vr 

Wh 

Cw 

^eas 

^Heat 

d 

RS 

Hx 

K 

Hz 

Sp 

^P 

So 

Sp 

Vla 

VlG 

VlP 


Parameter Definition 
Normal acceleration, g's 
Air relative velocity, ft/sec 
Relative velocity, ft/sec 
Horizontal wind speed, ft/sec 
Wind direction, deg 

Integral of axial acceleration, ft/sec or 
Heating integral, or 

Total angle change of relative velocity 
vector, deg 

Axial component of angular momentum 
derivative, ft/lbs 

Side component of angular momentum 
derivative, ft/lbs 

Normal component of angular momentum 
derivative, ft/lbs 

Roll control surface deflection, deg or 

Roll reaction control motor thrust, lb 

Pitch control surface deflection, deg or 

Pitch reaction control motor thrust, lb 

Yaw control surface deflection, deg or 

Yaw reaction control motor thrust, lb 

Velocity loss due to aerodynamic force, 
ft/sec 

Velocity loss due to gravity, ft/sec 

Velocity loss due to atmospheric pressure 
on rocket nozzle exit, ft/sec 
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TABLE 3*2 (Continued) 
PLOT PARAMETER CODE NUMBERS 


Code Parameter 


Number 

Symbol 

Parameter Definition 

42 

VLa 

Velocity loss due to thrusting at an angle 
of attack, ft/sec 

45 

ViD 

Ideal velocity, ft/sec 

44 

^L 

X component in range coordinate system, ft 

45 

n 

y component in range coordinate system, ft 

46 

ZL 

z component in range coordinate system, ft 

47 

^L 

X component of velocity in range 
coordinate system, ft/sec 

48 

yL 

y component of velocity in range 
coordinate system, ft/sec 

49 

h 

z component of velocity in range 
coordinate system, ft/sec 

50 

Bxy 

Tangent plane range in range coordinate 
system, ft 

51 

>'l 

Earth relative flight path angle with 
respect to launch site tangent plane, deg 

52 

Vl 

Velocity with respect to the launch site, 
ft/sec 

53 

^LS 

Slant range derivative with respect to 
launch site, ft/sec 

54 

^IIP 

Time of the Instantaneous Impact Point 
(IIP), sec 

55 

y 

^iip 

Geodetic latitude of IIP, deg 

56 

^iip 

Greenwich longitude of IIP, deg 

57 

%ip 

Great circle range to the IIP, n*mi. 

58 

^LIIP 

X-component of the IIP in the range 
coordinate system, ft 

59 

yLiip 

Y-component of the IIP in the range 
coordinate system, ft 
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TABLE 3«2 (Continued) 
PLOT PARAMETER CODE NUMBERS 


Code 

Namber 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 


Parameter 

Symbol 

2LIIP 

W 

T 

h 

M 


Parameter Definition 

Z-component of the IIP in the range 
coordinate system, ft 

Vehicle weight, lbs 

Vehicle thrust, lbs 

Altitude above sphenod, ft 

Mach number 


X 


Y 

^RE 

Z 

X 

Y 


Roll displacement error, deg or 

X-component in an inertial cartesian 
coordinate system, ft 

Yaw displacement error, deg or 

Y-component in an inertial cartesian 
coordinate system, ft 

Reynolds number, deg or 

Z-component in an inertial cartesian 
coordinate system, ft 

X-component of velocity in an inertial 
cartesian coordinate system, ft/sec 

Y-component of velocity in an inertial 
cartesian coordinate system, ft/sec 


^FLEX Pitch moment due to thrust misalignment, 

ft/lbs, or 

Z Z-component of velocity in an inertial 

cartesian coordinate system, ft/sec 


NpLEX moment due to thrust misalignment, 

ft/lbs 


Body x-axis component of earth relative 
velocity, ft/sec 

Vjjq-[_ Body y-axis component of earth relative 

velocity, ft/sec 
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TABLE 3*2 (Continued) 


PLOT PARAMETER CODE NUMBERS 


Code Parameter 


Number 

Symbol 

Parameter Definition 

74 

WRel 

Body z-axis component of earth relative 
velocity, ft/sec 

75 

Rs 

Earth surface range, n.mi. 

77 

Vl 

Inertial velocity, ft/sec 

78 

r 

Geocentric radius, ft 

79 

X' 

Geodetic latitude, deg 

80 

X 

Geocentric latitude, deg 

81 


Longitude referenced to Greenwich meridian 

82 

6- a 

Geocentric pitch attitude minus the 
inertial range angle, deg 

83 

q 

Dynamic pressure, lb/ft2 
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4.0 SUBROUTINE DESCRIPTIONS 


This section provides a brief explanation of each subroutine of NEMAP. 

4.1 NEMAP (Mam Program) 

The main program initializes the input data defaults; calls the input 
subroutine; reads the random access plot data file; writes the output; and 
creates the plot file. 


4.2 ALPHA 

Subroutine ALPHA converts a floating point number to alphanumeric for 
annotating axes. The number is left justified in the field of 10 characters. 
Ihe number of characters is also determined. 

4.3 AXIS 

Subroutine AXIS draws, annotates and labels an axis. Ihe axis is 
annotated according to the scaling parameters from subroutine SCALE. The 
scaling exponent is chosen such that it is a multiple of three. This 
subroutine replaces subroutine AXIS of the CalComp Software Package. 

4.4 COUNT 

Subroutine COUNT determines the number of characters in a title. Reading 
the title field from right to left, the first non-blank is assumed to be the 
last character in the title. 
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4.5 EXPN 


Subroutine EXPN converts a floating point number to a base nxunber and an 
exponent such that the base number is less than 5000 and the exponent is a 
multiple of three. 


4.6 INPUT 

Subroutine INPUT reads input data in a modified NAMELIST format. Titling 
information on title cards are placed in appropriate arrays for use by the 
main program. Non-title cards are written on disk unit 8 for a FORTRAN 
NAMELIST read from the main program. 


4.7 PLACE 

Subroutine PLACE determines CalComp X and Y coordinates of a point at X' 
and Y' coordinates relative to an axis at a specified angle to the CalComp X 
axis. 


4.8 ROUND 

Subroutine ROUND numerically rounds a floating point number to a specified 
number of non-zero digits. The alphanumeric field is limited to 20 characters. 


4.9 SCALE 

Subroutine SCALE scales data prior to plotting. It divides a set of data 
values into a given number of equal intervals such that the interval is a 
multiple of 2, 5 or 10 and such that the range of intervals include the range 
of data values scaled. This subroutine returns to the calling program the 
leftmost value of the axis and the scaling interval. This subroutine replaces 
subroutine SCALE of the CalComp Software Package. 
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5.0 PROGRAM CODING 


This section presents details about the program coding. Included are 
flowcharts of each subroutine, FORTRAN listings of each subroutine and 
definitions of the FORTRAN variables. The information presented in this 
section is intended to be helpful in developing a thorough understanding of 
NEMAP and in making modifications to the program. 

5.1 Subroutine F lowcharts 

Flowcharts are presented in Figures 5.1 through 5.9. Flowchart 
conventions used in these figures are defined in Section 2.0 of this report. 

5.2 FORTRAN Listings 

NEMAP is coded in FORTRAN IV, Reference (3), on the CDC CYBER 175 computer 
with the NOS/BE 1.4 operating system. Listings of the FORTRAN coding are 
presented in Appendix B. 

5.3 FORTRAN Variable Definition 

Definitions of the FORTRAN variables in the main program are shown below. 
This information is normally used only when making modifications to the 
program. 


Variable 

Definition 

CALCODE 

Input data. 

DATA 

Array of floating point data read from one 
record on TAPE14. 

DBA 

Input data. 

FACTX 

Input data. 

FACTY 

Input data. 
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Variable 


Definition 


H 

HLABEL 

HTITLE 

lA 

IC 
I CAL 

ICASE 
ICX 
ICY 
ID AT A 

IDIV 

I FREQ 

IPAPER 

IREC 

IRECF 

IRECL 

ISYM 

IX 

lY 

L 

LABEL 

LINTYP 

NCRVE 

NCURVE 


Input data. 

Input data. 

Input data. 

Array containing master index of the 
random access file TAPE14. 

Current value of ICASE. 

Two digit alphanumeric word representing 
the CAL CODE. 

Input data. 

X-axis plot parameter code plus 2. 

Y-axis plot parameter code plus 2. 

Array of integer data read from one record 
on TAPE14. 

Input data. 

Input data. 

Input data. 

Current TAPE14 record number. 

First record number of TAPE14. 

Last record number of TAPE14. 

Input data. 

Input data. 

Input data. 

Index for plot annotation. 

Alphanumeric data of PLABEL1-PLABEL9. 

Input data. 

Current curve number being plotted. 

Input data. 
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Variable 

NFRAME 

NFRME 

NPT 

plength 

SFACT 

TIUE 

TITLE! 

TITLE2 

X 

XAXIS 

XLAB 

XL ABEL 

XLNGTH 

XMAX 

XMIN 

XO 

XSINC 

XSMIN 

XT 

XVALUE 

Y 

YAXIS 
YLAB 
Y LABEL 
YLNGTH 


Definition 
Input data. 

Current frame number. 


Number of data points in current curve 
being plotted. 

Input data. 

Conversion factor to inches. 
Alphanumeric data of PTITLE1-PTITLE4. 
Input data. 

Input data. 

Array of data to be plotted on X-axis. 
Input data. 

Input data. 

Alphanumeric data of XAXIS. 

Input data. 

Input data. 

Input data. 

X distance of origin 
Input data. 

Input data. 

X distance of plot title. 

Value of X parameter in units to be 
plotted. 

Array of data to be plotted on Y-axis. 
Input data. 

Input data. 

Alphanumeric data of YAXIS 
Input data. 
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Variable 


Definition 


YMAX 

Input data. 

YMIN 

Input data. 

YO 

Y distance of origin. 

YSAVE 

Saved value of YSINC from previous case 

YSINC 

Input data. 

YSMIN 

Input data. 

YVALUE 

Value of Y parameter in units to be 
plotted. 
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Figure 5.1 

FLOWCHART OF MAIN PROGRAM NEMAP 
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Figure 5.3 

FLOWCHART OF SUBROUTINE AXIS 
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Figure 5.4 

FLOWCHART OF SUBROUTINE COUNT 
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Figure 5.5 

FLOWCHART OF SUBROUTINE EXPN 
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Figure 5.6 

FLOWCHART OF SUBROUTINE INPUT 
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Figure 5.7 

FLOWCHART OF SUBROUTINE PLACE 
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Figure 5.3 

FLOWCHART OF SUBROUTINE ROUND 
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Figure 5.9 

flowchart of subroutine scale 
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JINPUTD 

CALC00E>27«PLENGTH*12.» 
TlTLEl-VELOCITY PROFILE 
PTITLEl-TBAJECTOBY OATA 
PTITLE2-VELOC1TY PBOFILE 
PLABELl-NOHINAL TRAJECTORY 
lX-15* IY-77# 

XLAB-10*YLAB-16< 

XSHIN-O.YSrUN-0>XSlNC-0«YSINC-0. 
XAXm*TlHE, SECONDS 
YAXISl-lNERTIAL VELOCITY# FPS 
SEND 


DATE IS 09/06/81 
TINE IS 06.91. 07 

CALCODE- CAL27 


FRAME- 1 CURVE- 1 


I 

> 

(-■ 

I 


ABCISSA VALUES 


0 . 

.SOOOOOE^Ol 

.170000E«02 

.260000E+02 

.390000E«02 

.AA0000E402 

.930000E+02 

.620000E+02 

.710000E+02 

.300000E4^02 

.892900E«02 

.920000E'*’02 

.101000E«03 

.llOOOOE^Oa 

.119000E+03 

.130000E+03 

.199000E403 

.168000Et03 

.177000E«03 

.ia6C00E'»03 

.199000E>03 

.20A000E«03 

.2A0000E>03 

.330C00F«03 

.A20000E'f03 

.910000E^03 

.92A0OOE+O3 

.933000E«03 

.9A2000E«03 

.991000E«03 


0 . 

.90OOCOE4O1 

.180000E«02 

.270000E+02 

.360000E#02 

.A9C00OE4O2 

.9A0000E#-02 

.630000F402 

.72C0U0E'»02 

.810000E>02 

.892900E+02 

.9300001+02 

.102000E+03 

.lllOOOE+03 

.120000E+03 

.lAOOOOE+03 

.160000E+03 

.169000E+03 

.178000E+03 

.187000E+03 

.196000E+03 

.209000E+03 

.2900COE+03 

.3A0000E+03 

•A30000E+03 

.918320E+03 

.929000E+03 

.9340C0E+03 

.943000E+03 

•992000E+03 


.lOOOOOE+01 

.lOOOCOE+02 

.190000E+02 

.2B0000E+02 

.370000E+02 

.A60000E+02 

.9900U0E+02 

.6A0000E+02 

.730CC0E+02 

.82000CE+02 

.692900E+02 

.9AO0OCE+O2 

.103000E+03 

.112000E+03 

.121000E+03 

.190000E+03 

.161000E+03 

.170CO0E+O3 

.179000E+03 

.1880UOE+03 

.197C00E+03 

.206000E+03 

.260000E+03 

.390000E+03 

.AAOOOOE+U3 

.918320E+03 

.9260U0E+03 

.939C00E+03 

.9AA000E+03 

.992760E+03 


.20COOOE+01 
.llCOOOE+02 
.200000E+02 
.29C000E+02 
.380000E+02 
.A7C000E+02 
.960000E+02 
.690000E+02 
.74C000E+O2 
.830000E+02 
.860000E+02 
.99C000E+02 
•lOAOOOE+03 
.113000E+C3 
.122000E+03 
.196A60E+03 
.162000E+C3 
.171000E+C3 
.laCOOOE+03 
.189000E+03 
.198000E+03 
.206370E+03 
. 2700u0 E+03 
.360000E+03 
.A9CC00E+03 
.918320Et03 
.927000E+03 
.9360U0E+03 
.9^9000E+03 
.992760E+03 


.30U0UUE+01 

.1200006+02 

.2100006+02 

.300000E+C2 

.3900006+02 

.A600006+02 

.970O0GE+02 

.6600006+02 

.7900006+02 

.8A00006+02 

.87UOOOE+02 

.9600006+02 

.1090006+03 

.11ACOOE+U3 

.1230006+03 

.196A60E+03 

.1630006+03 

.172C0UE+03 

.18UCOE+03 

.1900006+03 

.1990006+03 

.2063706+03 

.26O000E+03 

.3700006+03 

.A60C006+03 

.9190006+03 


.A000006+01 
.1300006+02 
.2200006+02 
.3100006+02 
.<,000006 + 02 
.4900006+02 
.9600006+02 
.6700006+02 
.7600006+02 
.8AAOOOE+02 
.6600006+02 
.9700006+02 
.106000E+03 
.115000E+03 
.12AO00E+03 
.196A60E+03 
.1660006+03 
.1730006+03 
.182000E+03 
.191000E+C3 
.2000006+03 
.206370E+03 
.290000E+03 
.3800006+03 
.A70000E+03 
.920000E+03 


.500000E+C1 

.1400006+02 

.23000OE+C2 

.3200006+02 

.4100006+02 

.9000006+02 

.9900006+02 

.6600006+02 

.7700006+02 

.844000E+02 

.8900006+02 

.980U0OE+C2 

.107000E+03 

.1160006+03 

.1241906+03 

.196160E+C3 

.1690006+03 

.174000E+C3 

.1630006+03 

.192000E+C3 

.201000E+03 

.210000E+U3 

.3000006+03 

.3900006+03 

.4800006+03 

.9210006+03 


.6000006+01 

.190000E+02 

.2400006+02 

.3300006+02 

.4200006+02 

.9100006+02 

.6000006+02 

.6900006+02 

.76C000E+02 

.6440006+02 

.9000006+02 

.9900006+02 

.lOeOOOE+03 

.1170006+03 

.1241906+03 

.1981606+03 

.1660006+03 

.1790006+03 

.1840006+03 

.1930006+03 

.2020006+03 

.2200006+03 

.3100006+03 

.40C0006+03 

.490000E+03 

.9220006+03 


.7000006+01 

.1600006+02 

.2900006+02 

.3400006+02 

.4300006+02 

.9200006+02 

.610000E+02 

.7000006+02 

.7900006+02 

.8900006+02 

.9100006+02 

.1000006+03 

.1090006+03 

.1180006+03 

.1241906+03 

.1981606+03 

.1670006+03 

.1760006+03 

.1890006+03 

.1940006+03 

.2030006+03 

.2300006+03 

.3200006+03 

.4100006+03 

.9000006+03 

.9230006+03 


.9280006+03 

.9370006+03 

.9460006+03 


.929000E+03 

.9380006+03 

.9470006+03 


.930000E+C3 

.939000E+C3 

.9460006+03 


.931000F+03 

.9400006+03 

.9490006+03 


.9320006+03 

.9410UU6+03 

.990000E+03 


AXIS MINIMUM- 
AXIS INCREMENT 


0. DATA Units 

.127006+03 DATA UNITS PER INCH 


SAMPLE DATA CASES 



ORDINATE 

.129730Et0A 

.12B970E*0A 

.1393A3E«0A 


VALUpS 

.129730E>0A 

.129720E404 

.1A1019E*0A 


.157361E40A 

.18A636E^04 

.229318E+04 

.299914E*0A 

.398297E«0A 

.A9A377E+0A 

.A61389E«0A 

.A9^96AE+09 

.909839E«0A 

•626722E«04 

.0O1379E+OA 

.1030AAE409 

.108813E^09 

.106323E-»09 

.116218E>09 

.13063ef«09 

.lA8291Ei09 

.16722AE+09 

.190A27E+09 

.le89B6E«09 

.1BA0A7I+09 

.1809A6E'»09 

.I79663E+09 

.189163E«09 

.211AS9E«09 

.238100E«09 

.298096E«09 


.1998A9E409 
.188989E«OA 
.23972AE+OA 
.309733E+04 
•A07879E+OA 
.A96971E+04 
.960961E+0A 
.99A96^E*OA 
.92023AE«09 
.6<r31AlE«OA 
.82AA59E+0^ 
.109962E409 
•107693E+09 
.107139E+09 
.H7611E409 
.132A86E+09 
•190277E+05 
.169979E+09 
.191319E+09 
.1883A6E409 
.IsaBlZE'fOB 
.18071AE+C5 
.179636E+09 
.191287E+09 
.21A377E+C9 
• 2A09C0E'»09 
.298127E+09 


.129810E«0<> 
.130994E40A 
.1A2781E404 
.162A32E>09 
.19276AE+0A 
.2A2A98E^OA 
.319991E+0A 
.A16623E«04 
. A99019E409 
.A9957AE+0^ 
.99A96AE+09 
.9312A6E«09 
.660309E409 
,8Aei9AE+0A 
.106731E+09 
.1066AAE409 
.108099E409 
.119096E405 
.13<i377E409 
.192300E409 
.171999E+09 
.19133<iE409 
.187728E+05 
.18320OE4O9 
.1805CAE409 
.179636E+0S 
.193A96E+09 
.217321E409 
.2S3716E+09 
.258139b409 


.126008E404 

.131A79E4C4 

.19<i623E444 

.16513AE40A 

.197182E4CA 

.2A9536E404 

.330700E404 

.42A481E+04 

.46098CE4C4 

,498428E+04 

.459288E+04 

.942900E4C4 

.678231E404 

.672514E+C4 

.109612E+09 

.106004E40S 

.109076E+C5 

.120593E4C9 

.136298E+05 

.154318E4C5 

.174484E4C5 

.1913I1E405 

.187134E405 

.1828UE405 

.I80317E+C5 

.179636E+C5 

.19i797E+05 

.22C304E4Q5 

.246953E+C9 

,25ei39E405 


.126311E404 

.132904E404 

.146944E404 

.167966E404 

.2O185OE404 

.256973E+04 

.341B79E404 

.431462E404 

.461664E+04 

.457070E+04 

.466393E404 

.555I90E404 

•696902E404 

.897367E+04 

.109616E+09 

.106004E409 

.110127E+05 

.122107E+09 

.138248E409 

.156345E+09 

.177031E+05 

.191311E409 

.i86562E+05 

.162444E409 

.180192E403 

.180262E409 

.19B188E+09 

.223320E405 

.249395E+09 


.126707E404 
.133636E404 
.148537E404 
.170942E404 
.206776E404 
.264778E404 
.393933E404 
.437540E404 
.462318E404 
.496416E404 
.474006E404 
.968133E404 
.716325E+04 
.922740E404 
.109920E409 
.106004E405 
.111231E409 
.I237X5E409 
.140219E405 
.158408E409 
. 179629E+05 
.1913UE+05 
.186014E405 
.182099E405 
.180010E405 
.181618E405 
.200671E409 
.226339E405 
.2522U9E405 


.127176E+04 

.134889E404 

.X50602E4C4 

.X74079E+04 

.2XX97XE404 

.272964E+04 

.36536XE404 

.442820E404 

•462992E404 

.4964X6EtC4 

.462X40E4C4 

.98X748E4C4 

.736484E404 

.946629E4C4 

.X095O3E4C9 

.X05840E409 

.XX2390E40! 

.X25374E+C9 

.X4220BE4C9 

.X60926E409 

.X82282E409 

.X9X048E4C9 

.X89488E40 

.X8X777E409 

.X79889E4C9 

.X83234E409 

.20329CE4C9 

.22934XE4C9 

.294906E+09 


•X27708E404 

•X36299E404 

.X52764E404 

.177393E404 

.2X7492E404 

.26X942E404 

•376886E404 

.447363E404 

.462420E*04 

.4964X6E404 

.49C8XXE404 

.99603BE404 

.797309E+O4 

.974979E+04 

•X09503E405 

.X09840E4C9 

•XX3607E405 

.X27082E405 

.X442X3E+09 

.162700E409 

.X84996E409 

.X9C337E409 

•X84989E409 

.X8X478E409 

.X79792E409 

.X8507XE405 

.205920E405 

.232327E+05 

.257055F405 


.X2S303E404 

.I37799E+04 

.X55024E404 

.X80909E404 

.223230E4C4 

.290522E+04 

.3B786bE404 

.45XX76E+04 

.46203XE+C4 

.495389E404 

.5C0039E+04 

.6XX022F404 

.7790X3E404 

.X00220E409 

.X09903E*09 

.X0S840E409 

.XX4883E409 

.X2P836E409 

.X46229E409 

.X64932E+05 

.X87779E+09 

.X89b90E409 

.X049O9E4O5 

.X8X20XE409 

.X797X6E+09 

.X87099E409 

.208687E409 

.235249E409 

.257807E409 


AXIS NINIHUN- 
AXIS INCREMENT- 


.72760E-XX data 
.50600E404 DATA 


UNITS 

UNITS PER INCH 


CURVE COMPLETED 


FRAME COMPLETED 
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SINPUTO 

TITLEl-TBAJECTORY DATA 
PT1TLE2- 

NFBAHE-Zf IFREO>10« 
YLHGTH-18*XLAB-8« 
XLNGTH-12fXNAX-200.XSINC-0« 
IY-S.83,YS1NC-0»1SYM-H.LINTYP-1, 

yaxisi>fli6ht path angle* OEG 
YAXIS2>0YNANIC PRESSURE* PSF 
SEND 


DATE IS 05/06/el 
TIME IS 06.52.53 

CALCODE> CAL27 

FRANE- 1 CURVE- 1 


AlCISSA VALUES 


.SOOOOOE'iOl 

.170000E«02 

.260000E«02 

.350000E«02 

.AA0000E«02 

.530000E«02 

.620000E«02 

.710000E«02 

.aOOOOOE+02 

.852500E402 

.920000E«02 

.101COOE403 

.IIOOOOE^OS 

.119000E«03 

.130000E^03 

.159000E^03 

.leeoooE-fOs 

.177COOE«03 

.186000E*03 

.195000E«03 


0 . 

.9Cl0000E«01 

.leooooF^oz 

.270000E+02 

.360000E402 

.A50000E«02 

.5<>0000Ef02 

.630000E4^02 

.720000E«02 

.810000E>02 

.852500E«02 

.930000E«02 

.102000E403 

.1110C0E*03 

.120000E+03 

.1AOOOOE«C3 

.1600C0E«03 

.169C00E4C3 

.178000E403 

.187000E^03 

.196000E«03 


.lOOOOOE^Ol 

.100C00E«02 

.190000E*02 

.280000Et02 

.370000E*02 

.A60000E402 

.550000E402 

.6A00O0E4^O2 

.730CC0E«02 

.8200COE402 

.8525C0Et02 

.9AOOOOE+02 

.103000E+03 

.112000E+03 

.121000E+03 

.150000E>03 

.161000E>03 

.170C00E*03 

.179000E^03 

.188000E>03 

.197000E+03 


.200000E«01 

.UOOOOEtOZ 

.20C0uCEi02 

.29O00OE+02 

.38CO0OE+O2 

.A70000E«02 

.36U0UOF4O2 

.65CO0OEtO2 

.7SOOOOE+02 

.830000E>02 

.860000E>C2 

.95G0C0E*02 

.10AOOOE«03 

.113000E+03 

.1220o0E-f03 

.156^60E«03 

.162000E>03 

.171000E+03 

.180000E+C3 

.189000E+C3 

.198000E>C3 


.300000L+01 

.120000fct02 

.210C00E*02 

.300C00Et02 

.390000E402 

.A80O00E402 

.570C0OF402 

.660C00L402 

.75000CE+02 

.840C00E402 

.6700008402 

.960000E402 

.105000E403 

.11A0COE403 

.123000E403 

.156^60E403 

.163000E4C3 

.172000E403 

.181000E403 

.190000E403 

.199000E403 


. A00000E401 
.130000E402 
.22C000E402 
.3XOOOOE402 
.AOOOOOE402 
.A90000E402 
.580000E402 
.670000E402 
.760000E402 
.8AAOOOE402 
.88COOOE402 
.970000E402 
.106000E403 
.115000E403 
.12A000E403 
.156A60E403 
.16^000E403 
.173000E403 
.162000E403 
.191000E403 
.200000E403 


.500000E4C1 

.1AOOOOE4C2 

.230000E402 

.320000E4C2 

.A10000E4C2 

.500000E402 

.590000E402 

.6B000CE402 

.770000E4C2 

.SAA000E402 

.B9C000E4L2 

.9BOOOOF4C2 

.107000E403 

.116000E403 

.I2A150E4L3 

.158160E4C3 

.165000E4C3 

.17A000E4C3 

.183000E4C3 

.192000E403 


.600000E401 

.150000E402 

.2A0000E402 

.330000E402 

.A20000E402 

.510000E402 

.600000E402 

.69000CE402 

.780000E402 

.8AA000E402 

.900000E402 

.990000E402 

.10P0CCE403 

.117000E403 

.124150E403 

.156160E403 

.166000E403 

.175000E403 

.1SA000E403 

.193000E403 


AXIS niNIHUN* 0. DATA UNITS 

AXIS INCREMENT- .50800E402 DATA UNITS PER INCH 


.700000E401 

.160000E402 

.2S0000E402 

.3A0000E402 

.A30000F402 

.5Z0000E402 

.610000F402 

.7COOOOE402 

.7900COE402 

.850000E4CZ 

.910000F402 

.100000E403 

.109000E4C3 

.118000E401 

.12A1S0E401 

.158160E401 

.167000F403 

.176000E403 

.185000E403 

.X9A000E403 



ORDINATE VALUES 


.13290BE402 

.249491E>02 

.333269E«02 

.379193E+02 

.396157E+02 

.391227E402 

.373777E*02 

.3A9292E>02 

.321505E+02 

.30A256E>02 

.28A946E«02 

.262716E^02 

.2<>^673E+02 

.230290E«02 

.2I633<iEt02 

.176637E+02 

.167062E«02 

.157436E+02 

.1^997AE*02 

.1AA337E«02 


0 . 

.146A60E«02 
.261073E+02 
.340012E4C2 
.382S06E+02 
.39b53AE>02 
.389736E402 
.3713AAE+02 
.3<i632bE«02 
.316279E402 
.30A256Et02 
. 2822<I<<E402 
.26052AE402 
,2<.287 <iE 402 
.2289A1E4C2 
.203568E+02 
.X77287E+02 
.165885E+02 
.1S6S06E402 
,l<t9265E*02 

. 1<<381<IE4C2 


.207787E+01 
.159811E402 
.272C98E402 
.3<<b285E4C2 
.385<<S5E402 
.396650E402 
.388089E402 
.368816E402 
. 3<<3326E402 
.315028E402 
.304256E402 
.279599E+02 
.2S8383E402 
,2<<U09£402 
.227636E+02 
.19056CE+02 
.!759<<9E402 
.!6<<73AE402 
.19560GE402 
.!<<8576E402 
.!<<3312E402 


,39<<602E401 
.172972E4C2 
.2825<<8E402 
.352116E4C2 
.388033E402 
.396S11E402 
.386293E402 
.36620<<E4C2 
.3<<0297E402 
.311750E402 
.301963E4C2 
.2770HE402 
.256291E4C2 
.239<<01£402 
•22637AE4C2 
•182033E402 
. 17<<62<<E402 
.163609E4C2 
,15<<721E402 
,1<<7909E4C2 
.!<<2831E402 


.S72203E401 
. 1860492402 
.292<illE402 
.357533E402 
.39C229E402 
.396127E402 
,36<t374E402 
.363521E402 
.337237E402 
.30e<<43e402 
.299029E402 
. 2744892402 
.254247E402 
.237762E402 
.22512SE402 
.162033E402 
.173315E402 
.162S12E402 
.*53869E402 
.147261E4C2 
.142370E402 


.740682E401 

•199C26E402 

.301655E402 

.3625S8E402 

.392038E402 

.396499E402 

.382436E4(t2 

.360771E402 

.33414BE402 

.3071C8E402 

.296137E402 

.272022E402 

.252248E4C2 

.236156E402 

.223876E402 

.1B2033E402 

.172022E402 

.161442E402 

.153041E4O2 

.146635E402 

.141929E4C2 


.899364E401 

.211933E402 

.31C286E402 

.367223E402 

.3934652402 

.394689E402 

.380442E4L2 

.357968E402 

.331028E402 

.307108E4C2 

.2932832402 

.269612E4C2 

.250293E4C2 

.234617E402 

.2236882402 

.179773E4C2 

.1707472402 

.16040UE4C2 

.152239E402 

.146C29E4C2 


.104897E402 

.224756F402 

.318443E402 

.371539E402 

.394626E402 

.393709E402 

.378335E402 

.355118E402 

.3278802402 

.307108E402 

.290467E402 

.267258E402 

.2483B0E4C2 

,2331262402 

.22368BE402 

.179773E402 

.169494E402 

.1593B5E4C2 

.151461E40? 

.145444E402 


AXIS HINIMUN- 0, DATA UNITS 

AXIS INCREMENT- .12700E401 DATA UNITS PER INCH 

CURVE completed 


.119144E402 

.2371742402 

.126116E402 

.375533E402 

.195521241,2 

.392551E402 

.376107E402 

.3522236402 

.324706F402 

.305096E402 

.287688F402 

.2649602402 

.246507F402 

.231685E402 

.22368RE402 

.1797736402 

.168265E402 

.1583982402 

.1507062402 

.1448802402 


FRAME COMPLETED 



FRAME- 2 CURVE 


1 


ABCISSA VALUES 


0 . 

.800000E«01 

.170000E«02 

.260000E402 

.350000E+02 

.<i<)OOOOE«02 

.S30000E«02 

.620000E402 

.710000E402 

.eOOOOOE^02 

.852500E«02 

.<)20000E*02 

.101000E>03 

.UOOOOE403 

.119000£^03 

.130C00Ef03 

.159000E+03 

.168C00E«03 

.1770001*03 

.186C00E*O3 

.195000E*03 


0 . 

.900000E*01 

.180000E*02 

.270000E*02 

.360000E*02 

•A30000E*02 

«9A0000E*02 

.630000E*02 

.720000E+02 

.eiOOOOE*02 

.892500E+02 

.9300C0E*02 

.102000E*03 

.1110(0E*C3 

.1200002*03 

.1A0000E*C3 

.160CC0E*03 

.169000E*03 

.17eOCCE*C3 

,187000E*03 

.196CCdE*C3 


. 1000002*01 
. 1000002*02 
.1900002*02 
.280000E*02 
.3700002*02 
. A60CCCE*02 
.5500002*02 
.6<)0OCCE*02 
.730000E*02 
.8200002*02 
.8525002*02 
.9A00C0E*02 
.1030002*03 
.112000E*03 
. 1210002*03 
.1500002*03 
.1610002*03 
. 1700002*03 
.1790002*03 
.1680002*03 
.1970002*03 


. 2000002*01 

. 1100002*02 

. 2000002*02 

.2900002*02 

.3800002*02 

.4700002*02 

.5600002*02 

.65C0j0E*02 

.740000E+02 

.8300002*02 

.8600002*02 

.9500002*02 

.1040002*03 

.1130002*03 

.1220002*03 

.1564602*03 

.1620002*03 

.1710002*03 

.1600002*03 

.1890002*03 

.1980002*03 


.3000002*01 
. 120 ( 002*02 
. 2100002*02 
.3000002*02 
.3900002*02 
.4800002*02 
.5700002*02 
.6600002*02 
.7500002*02 
.8400002*02 
.6700002*02 
.9600002*02 
.105uOOE*03 
.11400u2*03 
.1230002*03 
.1564602+03 
.1630002*03 
.1720002*03 
.leiccuf *03 
.1900002*03 
.1990002*03 


.4000002*01 

.1300002*02 

.220oa0E*02 

.3100002*02 

.4000002*02 

.4900002*02 

.580000E*02 

.6700002*02 

.7600002*02 

.8440002*02 

.8600002*02 

.9700002*02 

.106000E*03 

.1150002*03 

.1240002*03 

.1564602*03 

.1640002*03 

.1730002*03 

.1620002*03 

.1910002*03 

.2000002*03 


.5000002*01 

.140000E+02 

.2300002*02 

.32COOOE+C2 

.41000CE+C2 

.500000E+02 

.59COOOE+02 

.660000E+C2 

.770000E+C2 

.8440002*02 

.69C000E+C2 

.9800002*02 

.107000E+03 

.116000E+C3 

.1241502*03 

.1581602*03 

.1650UOE+03 

.1740002*03 

.1630002*03 

.192000E+03 


.6000002*01 

.1500002*02 

.2400002*02 

.3300002*02 

.4200002*02 

.5100002*02 

.6000002*02 

.6900002*02 

.7800002*02 

.8440002*02 

.9000002*02 

.9900002*02 

.1080002*03 

.1170002*03 

.1241502*03 

.1581602*03 

.1660002*03 

.1750002*03 

.1840002*03 

.1930002*03 


AXIS MINIMUM- 0. DATA UNITS 

AXIS INCREMENT- .508002*02 DATA UNITS PER INCH 


ORDINATE VALUES 


0 . 

.102311E+03 

.3915172*03 

.7835312*03 

.1178222*04 

.1546222*04 

.1558222*04 

.1179472*04 

.5218602*03 

.1834862*03 

.9995292*02 

.6328532*02 

.3819242*02 

.2332372*02 

.1133482*02 

.159057E+01 

.6010552-02 

.2199272-02 

.1043732-02 

.6313682-03 

.4342242-03 


0 . 

.1251112*03 

.4337092*03 

.8275712*03 

.1222472*04 

.1578382*04 

.1535102*04 

.1103362*04 

.4673522*03 

.1629552*03 

.9995292*02 

.5950472*02 

.3626032*02 

.2182532*02 

,1019422*02 

.1730112*00 

,5308972-02 

.1986212-02 

.9787372-03 

.6018162-03 

.4208592-03 

0 . 


.2448082*01 
.1500502*03 
.4767252*03 
.8715382*03 
.1266502*04 
.1607392*04 
.1508192*04 
.1024372*04 
.4177552*03 
.1449432*03 
.9995292*02 
.5601292*02 
.3439012*02 
.2034702*02 
.9063252*01 
.2473092-01 
.4718272-02 
.1804132-02 
.9202492-03 
. 5742522-03 
.4082602-03 


.8829382*01 

.1771682*03 

.5202962*03 

.9153352*03 

.1310072*04 

.1617302*04 

.1477562+04 

.9444742+03 

.3729132+03 

.1291182*03 

. 9436312*02 

.5277762*02 

.3261542*02 

.1889132*02 

.7727612*01 

.8725042-02 

.4216832-02 

.1647412-02 

.8672682-03 

.5485012-03 

.3963602-03 


.1656682*02 

.2067582+03 

.5641582*03 

.9589952*03 

.1352922*04 

. 1616602*04 

.1443322*04 

.8654372+03 

. 3324832*03 

.1151652*03 

. 6791602*02 

.4976822*02 

.3103902*02 

.1757512*02 

.6459372*01 

. 8725042-02 

.3784202-02 

.1511652-02 

.8190812-03 

.5244772-03 

.3850892-03 


.3114726*02 

.2307692*03 

.6079712*03 

.1002552*04 

.139476E+0-4 

.1612372*04 

.1405652*04 

.7884932*03 

.2961932*03 

.1100292*03 

.8206372*02 

.4695982*02 

.2947372*02 

.1628952*02 

.5372132*01 

.8725042-02 

•341021E-02 

.1393302-02 

.7750412-03 

.5022182-03 

.3743502-03 


•460543E+C2 

.2733912*03 

.6515672*03 

.1046172*04 

.1435282*04 

.1604512*04 

.1362002*04 

.7150402*03 

.2636902*03 

.1100292*03 

.7672922*02 

.4441762*02 

.2791782*02 

.1501142*02 

.5223872*01 

.6720922-02 

.3085442-02 

.128940E-02 

.734658E-03 

.4816442-03 


.6291732*02 

.3107022*01 

.6954962*03 

.1089882*04 

.147425E+04 

.1592922*04 

.1309632*04 

.6458772*03 

.2335452*03 

.1100292*03 

.7165492*02 

.4226362*02 

.2637312*02 

.1374832*02 

.5223872*01 

.672092F-C2 

.2750822-02 

.1197692-02 

.6974872-03 

.*634962-03 


AXIS MINIMUM- 
AXIS INCREMENT- 


DATA UNITS 
.254002+03 DATA UNITS PER INCH 


CURVE completed 


.7000002*01 
.1600002*02 
.2500002*02 
.3400002*02 
.4300002*02 
.5200002*02 
.6U000E + C2 
.7CCOOOF+02 
,7900002*02 
.8500002+02 
.9100002*02 
.1000002*03 
.1090002*03 
.1180002*03 
.12*1502*03 
.1581602*03 
.1670002*03 
.1760002*03 
.165000F+03 
.19*0002*03 


.8165122*02 
.350415E*''S 
.7395592*03 
.1133952*0* 
.151136F+C4 
.1577502*04 
.1248742+04 
.5813402*03 
.2068952*03 
.1027982*03 
.673891F *02 
.4019092*02 
.2484052+02 
.1252012*02 
.5223872*01 
.6720922-02 
.2450692-02 
.1116302-02 
.6631702-03 
.4484162-03 


FRAME COMPLETED 
























SINPUTO 

TITLEl-ALTITUDE RANGE PROFILE 
PTITLEE-ALTITUDE RANGE PROFILE 
1X-75.1Y-63* FACTY-.00016A57P8, 
XLAB-10»YLAB-18» 
NFRAHE-l*NCURVE-3>ICASE-lt2<3« 
XLNGTH«16( YLNGTH-ZOi 

XSlNC>0«YSINC*0<XNAX-lEb«lSYH-2<)>28«30« 

1FREQ«1»L1NTYP-250*2S0>250( 

XAXlSl-RANGEt N hi 

YAXISI-ALTITUDE# N HI 

PLABELl-A- ♦S SIGMA TRAJECTORY 

PLABEL2-B- NOMINAL TRAJECTORY 

PLABEL3«C» -3 SIGMA TRAJECTORY 

SENP 


DATE IS 05/06/81 
TIME IS 08.54. 53 


CALCODE- CAL27 


FRAME- 1 CURVE- 1 


ABCISSA ' 
.352111E-04 
.169594E-01 
.195043E+00 
.675341E+00 
.158987E401 
•312359E+01 
.55A747E+01 
.921685E401 
.141013E«02 
.195363E402 
.227779E*02 
.272478E+02 
.344708E+02 
,437976E*0Z 
.560039E+02 
.739761E+02 
.121371E«03 
.136764E403 
.153939E403 
.173444E403 
.195538E403 
.220597E403 
.327341E403 
.3884C9E403 
.843601E403 
.109569E+04 
.113516E404 
.llb311E404 
.119456E404 
•122955E404 


LUES 

.352111E-04 

.259508E-01 

.231202E400 

.752823E400 

.172540E401 

.334326E401 

.588652E401 

.971085E401 

.146889E402 

.201523E402 

.227779E+02 

.279698E+02 

.3538e9E402 

.449984E402 

.5756P4E402 

.9037C0E402 

.123013E403 

.138573E+03 

.155983E403 

.175769E+03 

.198164E403 

.223577E+03 

.356731E+03 

.617001E403 

.871716E+03 

.111893E404 

.113812E404 

.116b42E404 

.119B29E+04 

.123356E404 


.465656E-04 

.372008E-01 

.271286E400 

.835B29E40U 

.186880E401 

.357422E+01 

.624155E+01 

.102197E+02 

.152821E402 

.207693E402 

.227779E+02 

.287097E402 

.363340E>02 

.462361E402 

.591782E402 

.106708E403 

.124670E403 

.140405E4C3 

.1580576403 

.178126E403 

.2008286403 

.226S62E403 

.3860156403 

,6455246403 

.899796E403 

.111893E404 

.114111E404 

.1169776404 

.1202056404 

.1236616404 


.9466126-04 

.508664E-01 

.315454E4C0 

.924562E4v0 

.2020426401 

.3816936401 

.661321E4C1 

.1074236402 

.1588016402 

.213870F402 

.2324416402 

.2946856402 

.373070E4C2 

.4751166402 

.608187E402 

.117235E4C3 

.1263426403 

.1422616403 

.1601626403 

.1805156403 

.203530E4C3 

.2276666403 

.4151996403 

.673984E403 

.927845E403 

.1118936404 

.1144146404 

.1173186404 

.120586E404 

.123661E4C4 


.9433306-04 
.672074E-01 
.3638626400 
.10 1923E4U1 
,2180616401 
.4071866401 
.7002156401 
.1127746402 
.1648246402 
.2200526402 
.2307646+02 
.3024706+02 
.3830936402 
.4882576+02 
.6246476+02 
.1172356+03 
.1280326+03 
.1441416+03 
.1622976+03 
.1829366+03 
.2062716+03 
.2276666+03 
.4442856+03 
.7023P3E+03 
.9558676+03 
.1120836+04 
.1147206+04 
.1176626+04 
.120972E+04 


.5741596-03 

.863474E-01 

.4166696+00 

.1120056+01 

.2349776+01 

.4339516+01 

.7408996+01 

.1182396402 

.1708836+02 

.2225256+02 

.2452166+02 

.3104636+02 

.3934196+02 

.501793E+C2 

.6411096+02 

.1172356+03 

.1297406+03 

.146047E+03 

.1644636+03 

.1853896+03 

.2090526+03 

.2276666+03 

.4732786+03 

.7307256+03 

.9838656+03 

.112364E+04 

.1150306+04 

.1180126+04 

.1213626+04 


.2234096-02 

.108496F+00 

.4740356+00 

.1227266+01 

.2528276+01 

.4620386+01 

.7834236+01 

.123805E+C2 

.176971E+C2 

.222525E4C2 

.2518066+02 

.3186746+02 

.4040596+02 

.5157306+02 

.643579E+C2 

.1200016+03 

.131466E+03 

.1479796+03 

.166660E+C3 

.187874E+C3 

.2118756+03 

.2384906+03 

.5C2183E+C3 

,7590146+03 

.1011846+04 

.112648E+04 

.115344E+04 

.1183666+04 

.1217566+04 


.5312296-02 

.1338606+00 

.5361406+00 

.1341116+01 

.2716496+01 

.491497E+01 

.8277726+01 

.129462E+02 

.183084F+02 

.2225256+02 

.2565406+02 

.3271116+02 

.4150256+02 

.53C077E+02 

.6435796+02 

.1200016+03 

.1332116+03 

.1499386+03 

.1688906+03 

.1903946+03 

.2147396+03 

.2682256+03 

.531004E+03 

.7872546+03 

.1039806+04 

.1129346+04 

.1156626+04 

.118725E+04 

.1221546+04 


.101217E-01 

.1626496+00 

,6031796+00 

.1461886+01 

.2914806+01 

.5223626+01 

.873884F+01 

.1352026+02 

.189215F+02 

.2262346+02 

.2654286+02 

.3357866+02 

.426327F+02 

.5*48416+02 

.6435796+02 

.1200016+03 

.1349776+03 

.1519246+03 

.1711516+03 

.19294BE+03 

.217646E+03 

.2978406+03 

.559744F+03 

.8154496+03 

.106775E+04 

.1132246+04 

.115984E+04 

.1190886+04 

.122554E+04 



AlO 


0 


AXIS HINIHUH> 
AXIS INCREhEST- 


. data units 

.29A00E«03 DATA UNITS PER INCH 


I 


I 


ORDINATE VALUES 
.53A084E-O1 
.261817E«00 
.913173E+00 


.199208E«01 

.3A66AAE401 

.537527E+01 

.7837061401 

.11021AI402 

.1^78051+02 

.1853A6E+02 

.205831E+02 

.231869E+02 

.269973E+02 

.314568E+02 

.368A39E+02 

.AA2612E+02 

.61A30AE+02 

.662369E+02 

.712904E+02 

.766923E+02 

•825AABE+02 

.889623E+02 

.11A5A0E+03 

.165136E+03 

.1968A9E+03 

.2098A0E+03 

.210182E+03 

.210179E+03 

.210082E+03 

.20999AE+03 


.53A884F-01 

.313177E+00 

.101250E+01 

.213655E+01 

.3655A5E+01 

.561867E+01 

.815201E+01 

.11A215E+02 

.152O65F+02 

.1893A7E+02 

.205B31E+C2 

.235892E+02 

.27A551E+02 

.320052E+02 

.375100E+U2 

.5059A7E+02 

.619623E+02 

.668026E+02 

.718701E+02 

.773196E+02 

.832266E+02 

.897129E+02 

.121101E+03 

.1695B0E+O3 

.199215E+03 

.210099E+03 

.210189E+03 

.210171E+C3 

.210070E+03 

.209988E+03 


.5710A8E-01 
.369712E+00 
.111717E+01 
.22058OE+O1 
.389991E+G1 
.5869C7E+01 
.0<i7622E + Ol 
.11828AE+02 
.15631<iE+02 
.1933028+02 
.2O5031E+O2 
.2399A3E+02 
.27921AE+02 
.325655E+02 
.381908E+02 
.56A926E+02 
.62A9AAE+02 
.673512E+02 
.7295'i5E + 02 
.779525E+02 
.839156E+02 
.90<.62AE + 02 
.127A26E+03 
.173808E+03 
.2Q13S0E+03 
.210099E+03 
.21019AE+03 
.210162E+03 
.210O58E+U3 
.209983E+03 


.68O325E-01 
.A31A13E+CC 
.122710E+CI 
.2A3983E+01 
.A0A995E + 1/1 
.612667E+01 
.08O995E+O1 
.122A09E+02 
.16o598E+C2 
.1972128+02 
.2066628+02 
.29^0968+02 
.283966E+02 
.331380E+O2 
.3PP802E+02 
.600718E+C2 
.630275E+C2 
.679026E+02 
.7309908+02 
.765909E+02 
.696121E+C2 
.907392E+C2 
.133517E+C3 
.1777958+03 
.2032558+03 
.210099E+C3 
.2101978+03 
.2101528+03 
.211.0978+03 
.2099838+03 


.8555918-01 

.9983138+00 

.13922w8+01 

.259P65E+01 

.9255708+01 

.6391718+01 

.9153988+01 

.1265828+02 

.1697598+02 

.2010798+02 

.2129568+02 

.2982098+02 

.2888108+02 

.3372308+1.2 

.395679t+C2 

.6007188+02 

.6356178+02 

.6695708+02 

.7363676+02 

.7923996+02 

.8531658+02 

.9073926+02 

.1293728+03 

.1815508+03 

.2099288+03 

.2101138+03 

.2101908+03 

.2101918+03 

.2100368+03 


.1C9383E+00 

.570971E+00 

.1962378+01 

.2762288+01 

.996729E+01 

.6669928+01 

.950715E+C1 

.1307908+02 

.1689958+02 

.2026058+02 

.2162778+02 

.2529228+02 

.2937528+02 

.3932078+02 

.9025198+02 

.6007188+02 

.6909718+02 

.6901638+02 

.7923868+02 

.7988958+02 

.8602898+02 

.9073928+02 

.1999938+03 

.1850738+03 

.206372E+03 

.2101328+03 

.2101978+03 

.2101308+03 

.2100268+03 


.139206E+00 

.6979568+00 

.1587508+01 

.2930708+01 

.9689868+01 

.699509E+tl 

.9671228+01 

.1350258+02 

.1731008+02 

.2026058+02 

.2201278+02 

.2567098+02 

.2987958+02 

.399313E+L2 

.9035368+02 

.6098368+02 

.6963918+02 

.6957868+02 

.7989388+102 

.8059018+02 

.0679978+02 

.939372E+02 

.1503798+03 

.1883658+03 

.2075898+03 

.210198E+C3 

.210195E+03 

.21C118E+C3 

.2100178+03 


.1797108+00 

.730B61E+00 

.1717528+01 

.3109238+01 

.99CP57E+01 

.7233898+01 

.1029598+02 

.1392788+02 

.1772218+02 

.2026058+02 

.2290108+02 

.2610538+02 

.3039938+02 

.3555518+02 

.9035368+02 

.6098368+02 

.6517298+02 

.7019998+02 

.7595958+02 

.8120198+02 

.8797898+02 

.1007088+03 

.1555318+03 

.1919298+03 

.2085668+03 

.2101628+03 

.2101918+03 

.2101068+03 

.2100098+03 


AXIS HINIHUH- 0. DATA UNITS 

AXIS INCREMENT- ,508008+02 DATA UNITS PER INCH 


.2156378+00 

.8192708+00 

.1852398+01 

.3282798+01 

.5138698+01 

.7531108+01 

.1062908+02 

.1935908+02 

.1013098+02 

.2098868+0? 

.2279298+02 

.265975F+rt2 

.3091998+02 

.3619258+02 

.9035368+02 

.6090368+02 

.6571388+02 

.7C7159E+02 

.7607068+02 

.8107008+02 

.8021658+02 

.1077928+03 

.1609508+03 

.1992528+03 

.2093188+03 

.2101738+03 

,2101858+03 

.2100998+03 

.2100018+03 


CURVE COMPLETED 



All 


» 


FRAHE> 1 CURVE- 2 


I 


I 


VALUES 

.392111E-04 
.225972E-01 
.22A919E+00 


AeCISSA 

.352111E-0A 

.1A17A6E-01 

.1887171*00 

.67Ab72E*00 

.161<i84E*01 

.327A251+01 

.602312E*01 

.1020311*02 

.154188E*02 

.208659E*02 

.2A2A10E*02 

.287A30E*02 

.3b0()AAE*02 

.b59990E*02 

.5817A6E*02 

.927997E*02 

.12558bE*03 

.1A127AE*03 

.158967E*03 

.179227E*03 

.202313E*03 

.2246AAE*03 

.AA93A7E*03 

.70b282E*03 

.957199E*03 

.1119b9E*0A 

.llb570E*0A 

.117A9AE*0A 

.120e00E*0A 


.793506E*00 

.179736E*01 

.391889E*01 

.6A1318E*01 

.107A72E*02 

.16028AE*02 

.2086991*02 

.2A2A10E*02 

.29A722E*02 

.369991F*02 

.A68321E*02 

.997927E*02 

.1092121*03 

.1272921*03 

.1A3128E*03 

.lbl089E*03 

.1816A7E*03 

.2090791*03 

.22AbAAE*03 

.678281E*03 

.736609E*03 

.984823E*03 

.1122<i6E*0<i 

.116877E*0A 

.1178A3E*06 

.1211901*06 


. 621623E-06 
. 3327381-01 
.2691661*00 
.8379921*00 
.1909131*01 
.3777601*01 
.6822901*01 
.1130281*02 
.1666111*02 
.2086991*02 
.2626101*02 
.3022011*02 
. 3796221*02 
.6810621*02 
.6166271*02 
.1197831*03 
.1289361*03 
.1690091*03 
. 1632391*03 
.1861021*03 
.2076791*03 
.2636821*03 
. 9071081*03 
.7626691*03 
.1012611*06 
.1129291*06 
.1191881*06 
.1181961*06 
.1219861*06 


.1879091-03 

.6661001-01 

.3096961*00 

.9283331*^^0 

.2070691*01 

.6090391*01 

.7291991*01 

.1186891*02 

.1729661*02 

.2097791*02 

.2670991*02 

.3098771*02 

.3899691*02 

.6961611*02 

.6309821*02 

.1197831*03 

.1306391*03 

.1669161*03 

.1696181*03 

.1869911*03 

.2107281*03 

.2732801*03 

.9398361*03 

.7906991*03 

.1039961*06 

.1128071*06 

.1199061*06 

.1189991*06 

.1219781*06 


.6290931-03 

.6222221-01 

.3*89361*00 

.lC2686E*ul 

.2262631*01 

.6338391*01 

.7700091*01 

.1266331*02 

.1787371*02 

.2199996*02 

.2936961+02 

.3177601*02 

.3997631*02 

.9076671*02 

.6679391*02 

.1197831*03 

.1323991*03 

.1688901*03 

.1676391*03 

.1691161*03 

.2136211*03 

.3029611*03 

.9666631*03 

.8183021*03 

.1067661+06 

.1130921*06 

.1198261+06 

.1189181+06 

.1223731*06 


.2696601-03 

.8090981-01 

.6119791+00 

.1127981+01 

.2629011+01 

.6661991*01 

.8167601+01 

.1302601+02 

.1869261+02 

.2222161+02 

.29996B1+C2 

.3298601+02 

.6103381+02 

.9216281+02 

.6686081+02 

.1229611+03 

.1360991+03 

.1908131+03 

.1698891+03 

.1916761*03 

.2169611*03 

.3326691*03 

.9929981*03 

.8662901*03 

.1096971*06 

.1133811*06 

.1161681*06 

.1192891*06 

.1227681*06 


.1063781-02 

.1026681*00 

.6701361*00 

.1236121*01 

.2618971*01 

.6961621*01 

.8692991*01 

.1361991*02 

.1911271*02 

.2286321*02 

.2669661*02 

.3361671*02 

.6212261*02 

.9399921*12 

.6686061*02 

.1229611*03 

.1398961*03 

.1928061*03 

.1721701*03 

.19<t277E*C3 

.2199631*03 

.3616691*03 

.6216631*03 

.8760621*03 

.1117821*06 

.1136731*06 

.1166781*06 

.1190971*06 

.1227871*06 


.3629101-02 

.1277631*00 

.6331921*00 

.1399661*01 

.2826821*01 

.5297981*01 

.9196631*01 

.1621161*02 

.1973391*02 

.2366661*02 

.2733701*02 

.3627931*02 

.6326531*02 

.9507901*02 

.6686061*02 

.1229611*03 

.1376361*03 

.1568261*03 

.1766861*03 

.1969191*03 

.2229391*03 

.3911661*03 

.6698031*03 

.9018221*03 

.1117821*06 

.1139681*06 

. 1166121*06 

.1200’3E*06 

.1227871*06 


,7891961-02 

.1963991*00 

.6(13091*00 

.1681091*01 

.3063061*01 

.9691601*01 

.9671721*01 

.1661301*02 

.2039971*02 

.2608971*02 

.2603161*02 

,3919681*02 

.6660381*02 

.9660391*02 

.7632931*02 

.1239371*03 

.1396661*03 

.1968821*03 

.1768611*03 

.1999961*03 

.2266661*03 

.6203061*03 

.6780821*03 

.9299331*03 

.1117621*06 

.1162671*06 

.1171911*06 

.1206191*06 


AXIS HiNlHUM- 
AXIS INCREMENT- 


0. DATA UNITS 

.296001*03 DATA UNITS PER INCH 



A12 


I 


I 


ORDINATE VALUES 


.53A08AE-O1 

.290063E+00 

.103953E^01 

.22B69SE>01 

.<i01S51E«01 

.629787E40X 

•927859E+01 

.131369E+02 

.17A391E+02 

.219112E+02 

.238381E'»02 

.267C73E+02 

•3092A7E+02 

.358936E402 

.A19275E+02 

.970651E«02 

,6973A2E*02 

•752067E+02 

.810023E402 

.873C22E«02 

.9^19B2E+02 

.100687E«03 

.159754E+03 

.212339E+03 

.2A66^AE*03 

.299300E«03 

.260647E'»03 

.262109E+03 

.26383AE«^03 


.53A8BAE-01 

.3AB68AE>00 

.115A29E+01 

,2^5A60E*01 

,<i2398<.E+01 

.6990e^E«0X 

.96630AE+01 

.136072E+02 

.1791A8E+02 

.215112E+02 

.238381E«02 

.271493E+02 

.3XA335E+02 

.385068E402 

.^2675AE+02 

.636119E+02 

.703331E>02 

.7583C7E+02 

.8L6751E+02 

.880371E402 

.9S0086E+02 

.100687E403 

.166506E403 

.2170A6E+03 

.2^9336E+03 

•259A^9E+03 

.260801E-»^03 

.2622B6E+03 

.26A0«6E>03 


.57657AE-01 

.A13333E>00 

.127522E+01 

.262812E«01 

.^^71i2E*01 

.689259E+01 

.100S96E«^02 

.19O017E+O2 

.103878E>O2 

.215X12E«02 

.23B38XE«02 

.275970E+02 

.3X9520Ef02 

.37X33AE+02 

.A3^332E+02 

.676XX8E+02 

.709336E«^02 

.76A59XE+02 

.8235<.5E>02 

.80779XE+C2 

.956290E+02 

.X0607XE+G3 

.X73029E+03 

.22X532E>03 

.25X809E«03 

.25959BE+03 

.260956E«03 

.262466E«03 

.26A26XE+03 


.7OO3X0E-CI 
.46A032E«00 
.X40224E«C1 
.280764E+OX 
.470952E*0X 
.72C344F+CX 
.X04684E+02 
.X45593E+02 
.X88575E+C2 
.2X59U8E+02 
.24X492E+02 
.280506E+02 
.3248C7E+02 
.377739E+C2 
.44X894E+02 
.67MX8E + 0Z 
.7XS36CE+C2 
.77192XE+C2 
.830405E+02 
.8952B6E+C2 
.966599E+C2 
.XX443XE*C3 
.X79325E+C3 
.225792E+C3 
.2540£0EtC3 
.259746E+C3 
.26XXX3E+C3 
.2626S0E'»C3 
•264478E+03 


.898t66E-0X 
,5608496400 
.X5352CE40X 
.2993ZXE40X 
,495517b40X 
.752369E40X 
.XL8891E4C2 
.150389E402 
.193236E402 
.220299E402 
.2456636402 
. 2851076402 
.33C202E4C2 
.3H4286E402 
.449417E402 
.6761186402 
.72X4066402 
.7772996402 
.83733<,£402 
.9028576402 
.9750156402 
.12256 u£4C3 
.XB5393E403 
.2298286403 
.2560726403 
.2598956403 
.26X2736403 
.2626306403 
.2646966403 


.XX6860E400 

.6438596400 

.X6740XE40X 

.3X84906401 

.520621E40X 

.785369E40X 

.XX3208E402 

.X55X96E402 

.X97858E402 

.2246386402 

.2498666402 

.2B9778E402 

,3357086402 

.3909796402 

.4499016402 

.6663456402 

.7274766402 

.7B3730E4C2 

.8443316402 

.9Xo508E402 

.9835426402 

.1304586403 

.1912346403 

.2336396403 

.25787X6403 

.2600446403 

.26X4356403 

.2630296403 

.2649X46403 


.X50668E4C0 

,733X696400 

.XBXB60E4CX 

.3382636401 

.546879E4CX 

.8193786401 

.1X76256402 

.1600076402 

.2024396402 

.2289246402 

.254X056402 

.2945236402 

.3413306402 

.3978X96402 

,44990X6402 

.6863456402 

.7335746402 

.7902X56402 

.85X3986402 

.9182436402 

.992X68E4C2 

.130X276403 

.1968496403 

.2372266403 

.259X996403 

.260X936403 

.26X5996403 

.2632246403 

.2649246403 


.19C996E4C0 

.8288896400 

.X9689BE40X 

.35B7X5E40X 

.5737X16401 

.0544376401 

.122X336402 

.1648X46402 

.2069756402 

.233X606402 

.2563836402 

.2993466402 

.3470746402 

.4048X16402 

.44990X6402 

.6863456402 

.7397036402 

.7967*'86402 

.6585366402 

.9260646402 

.X00081P403 

.1455656403 

.2022376403 

.2405896403 

.259X996403 

.2603446403 

.26X7666403 

.2634236403 

.2649246403 


AXIS niNIMUH> 
AXIS IHCR6H6NT> 


0. DATA 

.508006402 DATA 


UNITS 

UNITS PER INCH 


CURVE COHPlETEO 


i 




.2374716400 

.9310346400 

.2X25096401 

.3797996401 

.60X3386401 

.8905836401 

.1267X86402 

.1696X16402 

.2X14666402 

.2373436402 

.2627046402 

.3042526402 

.3529416402 

.41X96X6402 

.5C0856E402 

.6913636402 

.7458666402 

.6033596402 

.0657446402 

.9339766402 

.1006876403 

.1527746403 

.2073996403 

.2437286403 

.2591996403 

.2604056403 

.2619366403 

.2636266403 



A13 


FRAHE- 1 CURVE- 3 


f I 


ABCISSA VALUES 


.35E111E-0A .352111E-0A .5210A7E-OA 

.192130E-01 .206256F-O1 .A02806E-01 

,1<J9077E*00 .23A<)21E*00 .27A539E + 00 

.66888AE+00 .7A3712E+00 .8237C2E+00 

.15A792Et01 .167712E«01 .181322E^01 

.297600E401 .3173C3E«01 .338306E^01 

.511771E*0i .5S0980E401 .571AA1E+01 

.82A857E^01 .867A6SE«01 .911705E«01 

.126045E«02 .131A67E*02 .136970E+02 

.177109E«02 .182997E«02 .188907E«02 

.212718E402 .218819E402 .229035E>02 

.27269AE402 .280189E«02 .287882E+C2 

.3A8C69E-»02 .357693E'»02 .36760AE«02 

.AA591AE+02 .A58A99E*02 .A71A57E*02 

.9733A3E«02 .S89At0E«02 .609632E+02 

.102AA9E>03 .U2806E«03 .112806E'»03 

.120120E+03 .12X763E»03 .123A23E+03 

.139991E«03 .137369E«03 .1392C2E-f03 

•192760E+03 .19A809E+03 .196877E+03 

.172216E«03 .17S928E403 .176869E'»03 

.19A127E+03 .196729E+03 .199356E+03 

.218839E+03 .221775E+03 .22A731E+03 

.2899AAE403 .318890E-»03 .3<t8c69E4u3 

.55039'.l+03 ,979039E*03 .607630E + 03 

.806626E«03 .83A936E«03 .863230E-^03 

.106110E + 0A .108939E + 0A .ni293E^0A 
.112641E«0A .112936E409 .113239E^0<i 

.119423E«0A .119791E404 .116C83E^04 

.11B931E«04 .118899E404 .119271Et04 

.121993E+04 .122397E404 .122803E404 


.302797E-04 .293795E-03 ,Al«ll<.E-02 
.943429E-01 .7099X6E-01 .903949E-01 
.318067E+00 .369639E«0a .4173876+00 
.909X23E+00 .X0C023E+0X .X09720E+0X 
.X99639E+0X .2X0673E+0X .226499E+GX 
.360038E+0X .382729E+0X .4064X3E+0X 
.6U3213E+0X .636361E+C1 .670947E+0X 
.9979X9E+OX .XC0483E+02 .X09394E+02 
.X42949E+02 .X4B1B4E+02 .X9388XE+02 
.X94839E+02 .2C0778E+02 .206732E+02 
.23X387E+02 .237877E+02 .2449X9E+02 
.299782E+02 .303899E+02 .3X224XE+02 
.377813E+02 .388331t+02 .399X69E+02 
.434799E+C2 .49B929E+02 .9X2696E+02 
.62XB0BE+C2 .6296X9E+02 .6296X9E+02 
.XX2806E+03 .XX:92RE+03 .XX992BE+U3 
.X29X00E+03 .X26794E+U3 .X28506E+03 
.X4XC63E+03 .14294BE+03 .X44B98E+03 
.X96979E+03 .X6XXX0E+03 .X6327XE+U3 
.X7924XE+03 .1816446+03 .1840766+03 
.202024E+03 .2C472BE+03 .2074716+03 
.2276876+03 .2277986+03 .2277986+03 
.3771936+03 .40624oE+03 .4392096+03 
.6361736+03 .664671E+C3 .693128E+C3 
.8919096+03 .9197786+03 .9480406+03 
.1112936+04 .1112936+04 .1114866+04 
.1139376+04 .1138426+04 .1141916+04 
.1164196+04 .1167606+04 .1171096+04 
.1196476+04 .1200276+04 .1204126+04 
.1232096 + 04 .123616E>+C4 .1238086 + 04 


.3219496-102 .6706486-02 ,1194576-01 
.1127196+00 .1381486+00 .1668716+00 
.4734406+00 .9339306+00 .5990176+00 
.1200256+Cl .1309636+01 ,1429486+01 
.2430226+01 .2603846+01 .2789696+01 
.4311226+01 .4968916+01 .4837996+01 
.7070296+01 ,7446686+01 .7839266+01 
.1103976+02 .1194BCE+02 .1207136+02 
.1996286+02 .1694166+02 .1712476+02 
.2082226+02 .2082226+02 .2082226+02 
.2913076+02 .2982626+02 .2693886+02 
.3208196+02 .3296436+02 .3387236+02 
.4103356+02 .4218426+02 .4316986+02 
.5271686+02 ,5421396+02 .5575216+02 
.6256156+02 .7026056+02 .8637916+02 
.1159286+03 .1166756+03 .1184916+03 
.1302376+03 .1319876+03 .1337586+03 
.1467936+03 .1487556+03 .1507446+03 
.1654626+03 .1676636+03 .1699346+03 
.1865406+03 .1890366+03 .1915656+03 
.2102526+03 .2130736+03 .2159336+03 
.2277966+03 .2306436+03 .2601446+03 
,4641056+03 .4929326+03 .5216946+03 
.7215486+03 .7499356+03 .7782936+03 
.976300E+C3 .1004966+04 .1032836+04 
.1117716+04 .1120586+04 .1123486+04 
.1144636+04 .1147796+04 .1150996+04 
.1174556+04 .1178096+04 .1181686+04 
.1208016+04 .1211946+04 .1219916+04 
.1238086+04 


AXIS HlNinUH. 
AXIS INCREMENT- 


0. DATA UNITS 

.254006+03 DATA UNITS PER INCH 



A14 


□ROINATE VALUES 

.53488AE-01 .534884E-01 .566084E-01 ,6623u7E-Cl 

.236099E400 .280824E400 .329926E«00 .383381E400 

.796938E400 .881749E*00 .971049E^00 .106476E+01 

.171428E401 .183624E+01 .196191Ei01 .209124E+U1 

.294007E«01 .309371E'»01 .325112E«01 .3412S2E + 01 

.447450E^01 .466894E«^01 .48b900E«01 .S07489E-»C1 

.644668I+01 .670022E+01 .696137E+01 .723030E+01 

.901594E+01 .934375E+01 .967965E+01 .10C229E+C2 

.121908E>02 .12S6l9EtC2 .12933bE«^02 .1330S4E>b2 

.155054E402 .158627E+02 .162164E+02 .165662E+02 

.175911E+02 .179306E+02 .182722E+02 .X8616XE+02 

.207470E>02 .2XXX65E>02 .2X49XXE«02 ,2X87XXE-^02 

.242854E402 .247X37E+02 .25X503E+02 .255956E+C2 

.284687E + C2 .289839E«02 .295X02E^02 .300477E«^02 

.33525XE+02 .34X438E+02 .3476C5E+02 .35373XE+C2 

•492540E+02 .523938E+02 .523938E+02 .523938E+C2 

.545046E+02 .549673E+L2 .55430SE+02 .556942E+C2 

.586985E*02 .59X7X5E+02 .596467E+02 .60X243E^02 

.630499E«02 ,635492E«02 .640S22E4^02 .64S590E402 

.67&850E + 02 .6622C6E402 .6876C4E>^02 .693044E + C.2 

.72663XE«02 .7324C4£«02 .738233E4^02 .744X20E'»02 

.7807X0E+02 .787004E+02 .793306E+02 .799586E+C2 

. 9257961*02 .982087E+02 .X03593E+U3 .X08732E+03 

.X34444E*03 .X37878E*03 .X4X070E*03 .X440X9E*03 

.X56639E+03 .X57897E+03 .X589X5E+03 .X5969XE+C3 

.X5929XE+03 .X5838XE+03 .X57440E+03 .X57440E+03 

.X56820E*03 .X56675E*03 .X56524E*03 .X5b370E*03 

.X55343E*03 .X55XS6E*03 .X54964E*03 .X54768E*,C3 

.X5350XE+03 .X53276E+03 .X53048E+03 .X528X6E+C3 

.XSX369E*03 .X5XX2XE*U3 .X5087XE+03 .X5C622E+03 

AXIS HINIMUH- 0. DATA UNITS 

AXIS INCREHENT* .50800E*02 DATA UNITS PER INCH 

CURVE COHPLETEO 


FRAHE completed 


.BXb543E-0X .X02608E*00 .X26802E*00 .X59944E*00 .X95774E*00 
,44XX79t*00 .503360E+00 .569967E+CC .64X055E+LO ,7l6694E+0t. 
.XX6278E+0X .X26504E+0X .X37XA2E+CX .XA618XE+CX .X596XXE+0X 
.2224X2E*OX .236O:0E*OX .2S0C30E*0X .26434bE*0X .279002E*0X 
.3S76C9E+0X .374798F+CX .392237E+0X .AXCX43E*0X .42854CE*0X 
.!:2e686E*CX .550520E*Ci .573008F*cX .596XB0E*0X .62oU60F*OX 
.7507X0E+0X .779X92E+0X .808499E+0X .838654E+0X .B69679F*aX 
.XC3728E+C2 .X07285E+02 .XX089XE+02 .XX4535E+02 .XX82XXE+02 
.X36766E+02 .X40466E+02 .X44X49E+C2 .X478XXE+02 .X5X447E+02 
.X691XHE+02 .X72530E+02 .X73376E+02 .X73376E+02 .X73376E+02 
•Xe9627t+02 .X93X23E+02 .X96652E*o2 .20C2x7E*02 .2t3822E*02 
.222569E+02 .226488E+02 .230473E+C2 .234526E*C2 .23«652E*02 
.26050oE*02 .265X37E+02 .269872E+C2 .2747D7E+02 .279544E+02 
.30596PE+02 .3XX576E*C2 .3X7303E+02 .323X56E*02 .329X38E+02 
.355I67E+02 .355X67E+C2 .315X67E+02 .383699E+02 .44032XE+02 
.b3X697E+C2 .53X897E+02 .53X697E+02 .535790E+C2 .5404X9E*02 
.563566E+02 ,568239E*02 .572903E+02 .57758XE+02 .582274E+02 
.606C45E+C2 .6X0674E+02 .6X5732E+C2 .62C62XE+C2 .625543E+02 
.650698E402 .655845E+02 .66X034E+C2 .666264E*02 .67X536E+02 
.698527E+02 .704O53E+O2 .709625E+C2 .7X5243E+02 .7209XXE*02 
.750C68E+C2 .756077E+C2 .762X47E+C2 .768276E*02 .774464E+02 
.799822E+C2 .799B22E+02 .799622EK2 .605842E+C2 .867o49E*02 
.I13626E403 .XX8277E*03 .X22684E*C3 .1?6647E*03 .X307b7E*03 
.X46727E+03 .X49X92E+03 .X5X4X6E+C3 .X53398E+03 .X55X39E*03 
.X60227E*03 .X6052XE*03 .X60575E*C3 .X60388E*03 .X5996UE*03 
•X57440E+03 .X57356E+03 .X57228E+03 .X57097E*03 .X5696XE+03 
•X562XCE+C3 .X56046E+03 .X55878E+C3 .X55704E+C3 .X55526E+03 
.X54567E+03 .X54362E+03 .X54X53E+03 .X53939E*03 .X53722F+03 
.X52582E*03 .X52345E*03 .X52X<.SE*G3 .X5X862E*03 .X5X6X7E*03 
.X50372E+03 .X50255E+03 .X50255E+C3 
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SINPUTD 

TITLEl-SECONO STAGE THRUST PROFILE 
PTITLE2-SECQND STAGE THRUST PROFILE 
IX-15, IY»62» FACTY-1»NCURVE-1»ISYM-IA, 
LINTYP-2>XnAX-125« XHIN-e5> 
OBA-2«XLNGTHaI2« 

XSINC«10»XSHIN-85/ 

YSINC-10000, YSMIN-0# 

XAXTSl>TinE< SECONDS 
YAXIS1-THRUST» LBS 
PLABELl- 

PLABEL2-NONINAL TRAJECTORY 

PLABEL3- 

SEND 


DATE IS 05/06/81 
TINE IS 08.56.19 


CALCODE- CAL27 
I 


FRAHE- 1 CURVE- 1 


I 


ABCISSA 

.852500E+02 

.920000E«02 

.lOlOOOE+03 

.110000E403 

.119000E«03 


LUES 

.8525C0E^02 

.9300CUE+02 

.1O2OC0E+O3 

.111000E^03 

.120000E«03 


.852500Et02 

.9A00O0E+02 

.103CC0E+03 

.1120b0E*03 

.121COOE«C3 


.b6OG00F+02 

.950000E*02 

.10A000Ei^03 

.113000E4C3 

.122000E+C3 


.8700C0E+G2 

.960000E+02 

.lu5C00E+C3 

.llAGCOE+03 

.123000Et03 


.88CCU0E+02 

.970000E+02 

.106000E'^03 

.115000E+03 

.12<i0uuE«03 


.690000E+C2 

.9800COE^C2 

.1C7C00E*03 

.116b0cE+C3 

.129150E4C3 


.9000008+02 

.990000E+02 

.ioeoooE+03 

.117000E+03 

.124150E+03 


AXIS MINIMUM- .85000E+02 DATA UNlT$ 

AXIS INCREMENT- .12700E+02 DATA UNITS PER INCH 


ORDINATE 

0 . 

.526063E+05 

.671A66E+05 

.7A2227E+05 

.706086E+0S 


VALUES 

0 . 

.5<t4265E+05 

.68^155E+05 

.7%2299E+05 

.696366E+05 


-.6157A7E+U2 

.562^658+05 

.6968A3E+05 

.7^01798+05 

.486899E+05 


.<il6A13E+05 
.58C262E+C5 
.707576F+05 
.733'il7E + 05 
,6595^3E+CA 


.^350oIE+05 
.5966398+05 
.717161E+05 
• 726<i52E + 05 
.963597E+03 


.953221E+05 

.613015E+05 

.7297208+05 

.718299E+05 

.125306E+03 


.971936E+05 

.6287358+05 

.731531E+05 

.708789E+t5 

-.931885E+00 


.9896998+05 

.693290E+05 

.736110E+05 

.702188E+05 

-.9318858+00 


AXIS Minimum- 
axis INCREMENT- 


0. DATA UNITS 

.12700E+05 DATA UNITS PER INCH 


CURVE COMPLETED 


.9100008+02 

.lCOOOOE+03 

.109000E+03 

.1160008+03 

.1291508+03 


.5078578+05 

.6578998+05 

.79C200E+05 

.7091378+05 


FRAME COMPLETED 
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APPENDIX 3 

FORTRAN CODE LISTINGS 


PROGRAM N£MAP(INPUT»0UTPUT»TAPE14»TAPE5«1NPUT#TAPE6-0UTPUT. 

* TAPE8»TAPE10) 

C GENERAL PURPOSE PLOTTING ROUTINE. PLOT DATA FROM A RANDOM ACCESS FILE. 

C 04 ******** INPUT DATA ♦•*♦♦♦♦*♦* 

C CALCOOE • TWO DIGIT INTEGER REPRESENTING PLOT CODE IN USERS MANUAL. 

C ONLY ONE VALUE ALLOWED PER PLOT FILE. (CAL31 BUILT-IN) 

C DBA > DISTANCE BETWEEN ANNOTATION IN UNITS OF GRAPH PAPER. (2 BUILT-IN) 

C FACTX - MULTIPLIER APPLIED TO X-AXIS PARAMETER BEFORE PLOTTING. (1. BN) 

C FACTY - MULTIPLIER APPLIED TO Y-AXIS PARAMETER BEFORE PLOTTING. 

C ARRAY OF 8. (1. BUILT-IN) 

C H • HEIGHT OF AXIS ANNOTATION* INCHES. 

C (.1 BUILT-IN) 

C HLABEL - HEIGHT OF PLOT LABEL LETTERS* INCHES* ARRAY OF 9. SAME 
C ORDER AS PLABEL. (.1 BUILT-IN) 

C HTITLE ■ HEIGHT OF PLOT TITLE LETTERS* INCHES* ARRAY OF A. SAME 
C ORDER AS PTITLE. <.1A BUILT-IN) 

C ICASE ■ TRAJECTORY NUMBERS FROM WHICH TO PLOT DATA. INPUT IF 

C NCURVE IS GREATER THAN ONE. ARRAY OF ID. (1-10 BUILT-IN) 

C IDIV • NO. OF MINOR DIVISIONS PER UNIT LENGTH OF GRAPH PAPER. (10 BUILT-IN) 

C IFREQ • FREQUENCY OF EXTRACTING DATA FOR PLOTTING. (1 BUILT-IN) 

C IPAPER ■ 1 IF INCH PAPER 

C • 2 IF CENTIMETER PAPER (2 BUILT-IN) 

C ISYM ■ INTEGER EQUIVALENT OF PLOTTED SYMBOL. SAME ORDER AS 
C LINTYP* ARRAY OF 10. (VALUES 0 TO 9 BN) 

C IX - CODE OF PARAMETER OF X-AXIS(REF. REPORT FOR COOES) 

C lY • CODE OF PARAMETER OF Y-AXIS* ARRAY OF 8(REF. REPORT FOR CODES) 

C LINTYP ■ PARAMETER SPECIFYING PLOT LINE TYPE. ZERO IS NO 

C SYMBOL* POSITIVE IS CONNECT SYMBOLS* NEGATIVE IS NOT 

C CONNECT SYMBOLS. SAME ORDER AS PLOTTED ACCORDING 

C TO ICASE AND NCURVE. ARRAY OF 10. MAGNITUDE DETERMINES 

C FREQUENCY OF PLOTTED SYMBOL. (0 BN) 

C NCURVE - NUMBER OF CURVES PER FRAME. MAX OF 10. (1 BUILT-IN) 

C NFRAME - NUMBER OF FRAMES. MAX OF 8. (1 BN) 

C PLABELl - PLOT LABELS WRITTEN TO SIDE OF PLOT ACCORDING TO XLAB AND 

C -PLABEL9 YLAB. 30 CHARACTERS MAX. 

C PLENGTH • PAPER LENGTH IN INCHES. (17 BUILT-IN) 

C PTITLEl • PLOT TITLES WRITTEN ABOVE PLOT. 

C -PTITLEA 30 characters MAX. 

C TITLEl • TITLES TO IDENTIFY DATA CASE. 

C TITLE2 72 CHARACTERS MAX. 

C XAXISl - X-AXIS ANNOTATION. 30 CHARACTERS MAX. 

C XLNGTH ■ X-AXIS LENGTH IN UNITS OF GRAPH PAPER. (16 BUILT-IN) 

C XLAB ■ X distance OF PLABEL ANNOTATION IN UNITS OF GRAPH PAPER. (IB. BN) 

C XMAX - MAXIMUM VALUE PLOTTED ON X-AXIS* UNITS AS PLOTTED. (1E6 BUILT-IN) 

C XMIN • MINIMUM VALUE PLOTTED ON X-AXIS* UNITS AS PLOTTED. (0 BUILT-IN) 

C XSINC • ANNOTATION INCREMENT ON X-AXIS* DATA UNITS PER MAJOR DIVISION. 

C AUTOMATICALLY SCALED IF ZERO. (0. BN) 

C XSMIN ■ LEFTMOST ANNOTATION ON X-AXIS* AUTO SCALED IF XSINC ZERO. (0. BN) 

C YAXI51 • Y-AXIS ANNOTATION FOR PLOT FRAMES X TO 8. 

C -YAX1S8 30 CHARACTERS MAX. 

C YLNGTH ■ Y-AXIS LENGTH IN UNITS OF GRAPH PAPER. (20 BUILT-IN) 

C YLAB ■ Y DISTANCE OF PLABEL ANNOTATION IN UNITS OF GRAPH PAPER. (10. BN) 

C YMAX • MAXIMUM VALUE PLOTTED ON Y-AXIS* UNITS AS PLOTTED. (1E6 BUILT-IN) 

C YMIN - MINIMUM VALUE PLOTTED ON Y-AXIS* UNITS AS PLOTTED. (-1E6 BUILT-IN) 
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YSINC - ANNQTATiaN INCREMENT ON Y-AXIS* DATA UNITS PER MAJOR DIVISION. 

AUTOMATICALLY SCALED IF ZERO. (0. BN) 

YSMIN ■ LOWER ANNOTATION ON Y-AXIS* AUTO SCALED IF YSINC ZERO. (0. BN) 

IMPLICIT REAL(A-H*0-Z) 

INTEGER CALCODE 

COMMON /BLK1/T1TLE1(B)*TITLE2(8)*TITLE(16)*LABEL(36)* 

« XLABELIA)* YLABEL(32) 

DIMENSION X< 1000) * Y( 1000 )*FACTY( 6) *IY(8)*IA (2001)* DATA! 102)* 

« IOATA(2)»L1MTYP(10)*ISYN(10)*ICASE(10)*HTITLE(A)* 

HLABEL(9)*SFACT(2) 

EQUIVALENCE (1DATA*0ATA) 

NAMELIST /INPUTO/IX* I Y* DBA* NFRAME*FACTX* FACTY* H* CALCODE* 

xlngth*ylngth* ifreq* idiv*ipaper*plength*xmin*xmax* 

- XSHIN,X5INC*YSMIN*YSINC»ICASE*YMIN»NCURVE* 

» YMAX*LINTYP» IS YH * XL AB* YL AB» HTITL E*HL AB EL 

DATA FACTX*FACTY/9*1./ 

DATA HLABEL/9*0.07/ 

DATA MTITLE/A*0.1A/ 
data ICASE/1*2*3*A*5*6*7*8,9*10/ 

DATA ISYM/0*1*2»3,A,5*6*7*8,9/ 

DATA LINTYP/10*0/ 

DATA SFACT/1.,2.5A/ 

DATA TITLE1*TITLE2* TITLE* LAB EL* XL ABEL* YL ABEL/ 10 A*10H 
C 

C INITIALIZE INPUT DATA 

CALCOOE-31 
0»A-2. 

.10 

IDIV-10 

ifseo-i 

IPAPER-2 

NCURVE-1 

NFRAME-1 

PLEN6TH-17. 

XLNGTH-16. 

XLAB-18. 

XMAX-l.ElO 

XMIN-0. 

XSINC-0. 

XSMIN-0. 

YLNGTH-20. 

YLAB-10. 

YKAX-l.ElO 
YMIN — I.EIO 
YSINC-O. 

YSMIN-0. 

CALL nPENHS(lA.lA*2001*0) 

C 

C APANEW PROBLEM*** 

10 CONTINUE 
CALI INPUT 
HEAC( 8, INPUTD) 

C SET ORIGIN AT 1 INCH OR 2 CM 

XO-FLOAT(IPAPER)/SFACT(IPAPER) 

YO-XO 

C WRITE OUT CALCODE 
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ENC00E(5»80» ICAL) CALCODE 
URITE(6»90)ICAL 

YSAVE-YSINC 


GENERATE PLOTS 
00 70 NFRHE-1»NFRAHE 
YSIMC-YSAVE 

CALL PLOTSCICALfOf AHPLOT) 

CALL PL0T(X0>Y0»-3) 

DO AO NCRVE-lfNCURVE 

CALL READNS(1A*DATA(1)#102>1) 

IC>ICASE(NCRVEI 

IRECF-IDATA(IC) 

lRECL-lDATA(IC*l)-2 

NPT-0 

ICX-IX+2 

ICY»1Y<NFRHE)>2 


EXTRACT DATA FROH RANDOM ACCESS FILE AND FILL PLOT ARRAY 
00 20 IREC-IR£CF,IRECL 

CALL READHS (1A»DATA(1)#102/IREC) 

XVALUE-OATA(ICXJ*FACTX 

YVALUE»DATA(ICY)*FACTY(NFRME) 

if(xvalue.gt.xmax) goto 30 

IF ( YVALUE.GT.YMAX) GOTO 30 
IF (XVALUE.LT.X'^IN) goto 20 
IF (YVALUE.lt. YMIN) GOTO 20 
NPT-NPT+1 
X (NPT)«XVALUE 
Y(NPT)»YVALUE 
CONTINUE 


SET SCALES 

CONTINUE 

NPTS-NPT/IFREQ+1 
IF(IFRE0.E0,1)NPTS»NPT 
INDXl-NPTS*IFREO*l 
IN0X2»NPTS*IFRE0*IFRE0*1 
X(INOXl)- XSMIN 

X(INDX2)» XSINC/DBA*SFACT( IPAPER) 

IF (XSINC.EO.O. )CALL SC ALE ( X /XLNGTH» NPTS# I FREQ# I0IV»IPAPER) 
XSMIN-X(INDXl) 

XSINC-X( INDX2)*0BA/SFACT(IPAPER) 

Y(INOXl)- YSMIN 

Y(INDX2)- YSINC/DBA*SFACT(IPAPER) 

IF (YSINC.EO.O. )CALL SC ALE ( Y» YLNGTH, NPTS» IFREO» I DI V» IP APER ) 
YS«IN-Y( INOXl) 

YSINC«Y( INDX2)*0BA/SFACT(IPAPER) 


URITE(6f 100) 
WRITE(6»110) 
WRITE(6»120) 
WRITE(6,130) 
WRITE(6*120) 


NFRME»NCRVE 
(X( I)»I-1»NPT) 
X(INDX1)>X(INDX2) 
( Y(I ),I-1,NPT) 
Y(INDX1),Y(IN0X2) 


PLOT LINE 



CALL LINE(X>Y,NPTS#IFREO,LINTYP(NCRVE)»ISYH(NCRVE) ) 
WRITE(6«1A0) 

40 CONTINUE 
C 

C AXIS ANNOTATION 

CALL C0UNT(XLABEL(1)»30#NC) 

CALL AXIS(0.>0.«XLABEL(1)>-NC>XLN6TH» 0.« X ( INDXl) » X( IN0X2 ) , 
« H#DBA>IPAPER) 

L«l*NFRME*4-4 

CALL C0UNT(YLABEL(L)>30>NC) 

CALL AXIS(0.«0.*YLABEL(L)» NC* YLNGTH* 90.* Y ( INDXl ) * Y ( INDX2 )* 
H*DBA>IPAPER) 

C 

C TITLE ANNOTATION 

XT-XLNGTH/SFACT(IPAPER)/2.-15.*HTITLE(l) 

YT-YLNGTH/SFACT ( I PAPER ) *0 . 28*HTITL E (1 ) +HT ITL E ( 2 ) ♦ 

- HTITLE(3)+HTITLE{4) 

L-1 

on 50 1-1»4 

CALL SYMBOL (XT,YT»HTITLE( I )»TITLE(L)#0.»30) 
XT«XLNGTH/SFACT(IPAPER )/2.-15.*HTITLE( !♦!) 
YT«YT-1.5*HTITLE(I+1) 

L-L^4 
50 CONTINUE 
C 

C LABEL ANNOTATION 

XT«XLA8/SFACT(IPAPER) 

YT«YLA8/SFACT{ IPAPER ) 

L«1 

00 60 I-l»9 

CALL SYMBOL (XT»Y7> HL ABEL (I) »LABEL (L)/0.»30) 
YT-YT-1.5*HLA3EL( I+l) 


C 

C 


L«L*4 
60 CONTINUE 

ADVANCE TO NEXT FRAME 
CALL PLOT («»LENGTH-X0#-Y0*999) 

WRITE(6«150) 

70 CONTINUE 
GO TO 10 

80 F0RMAT(3HCAL#I2) 

90 F0RMAT(//10X»9HCALC0DE- # A5 ) 

100 F0RMAT(//10X»*FBAHE- ♦12* CURVE* *12) 

HO FOPMAK /10X^*ABCISSA VA LUE S* / ( 5X »9E13 .6 ) ) 

120 F0RMAT(/10X»*AXIS MINIMUM* *E12.5* OATA UNITS*/ 

A 10X,*AXIS INCREMENT* *E12.5* OATA UNITS PER INCH*) 

130 FORMAT(/10X,*OROINATE VALUES*/ (5X»9E13. 6) ) 

140 F0RMAT(/10X,*CURVE COMPLETED*) 

150 FORMATC //10X»*FRAHE COMPLETED*) 

END 
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SUBROUTINE INPUT 

this subroutine reads modified namelist formatted data. 

IT READS A CARD ON UNIT 9>WRITES THE CARD ON UNIT 6> 
WRITES THE CARO ON UNIT 6 (FIRST 72 CHARACTERS ONLY). 
THE TITLE CARDS AS DEFINED IN THE DATA STATEMENT BELOV 
ARE NOT WRITTEN ON UNIT 8 BUT THE DATA IS PLACED IN 
THE APPROPRIATE ARRAYS FOR TRANSFER BACK TO THE CALLING 
PROGRAM. THE TITLE CAROS MUST BEGIN IN COLUMN 2 WITH 
NO SPACES. THE CALLING PROGRAM MUST BLANK THE TITLE 
ARRAYS* CALL INPUT AND REA0(8* INPUTD) . NAMELIST DATA 
MUST BEGIN WITH SINPUTO AND END WITH SEND* BOTH 
BEGINNING IN COLUMN 2. 


IMPLICIT INTEGER (A-Z) 
COMMON /BLKl/ TITLE(IOA) 
DIMENSION CARO(6)* LINE(2A) 


DATA 

LINE/lOH 

TlTLEl- 

,10H 

T1TLE2- 

,10H 

PTITLEl 

,10H 

PTITLE2 

A 

,10H 

PT1TLE3 

,10H 

PTITLEA 

,10H 

PLABELl 

,10H 

PLABEL2 

A 

,10H 

PLABEL3 

,10H 

PLABELA 

,10H 

PLABEL5 

,10H 

PLABEL6 

A 

,1CH 

PLABEL7 

,10H 

PLABEL8 

,10H 

PLABEL9 

,10H 

XAXISl- 

A 

,10H 

YAXISl- 

,10M 

YAXIS2- 

,10H 

YAX1S3- 

,10H 

YAXISA> 

A 

,10H 

YAX1S5- 

,10H 

YAXiSe- 

,10H 

YAXIS7- 

,10H 

YAXIS9- 


DATA BLANK/lOH / 


C 

C 

REWIND 8 
WRITE (6,70) 

10 CONTINUE 

BEAD (5,110 CARO 
IF (£OF(5).NE.O) STOP 
WRITE (6,<)0) CARO 

C BLANK COLUMNS 9 AND 10 

ENCODE (10, 80, WORD) C ARO ( 1 ), BLANK 
DO 30 I"1,2A 

IF (WORD.NE.LINE( I) ) GOTO 30 
C CARO READ IS A TITLE CARO 

IF (I.EQ.l) J>1 
IF (I.E0.2) J-9 
IF (I.GE.3) GOTO 20 
ENC00E(72,60,TITLE(J) )CARO 
GOTO 10 
C 

20 CONTINUE 

J-17+A*(I-3) 

IF (I.GE.16) GOTO 25 

ENCnDE(3C,50,TITLE(J) ) CARO(l), CARD(2), CARD(3), CARD(A) 
GOTO 10 
C 

25 CONTINUE 

ENCODE (30, 55, TITLE! J) ) CAR0(1),CARD(2) ,CARD ( 3 ) ,CARO ( A ) 
GOTO 10 
C 

C BLANK COLUMNS 73-60 OF DATA CARD 

30 CONTINUE 

ENCODE (1C,1C0,CARD(8) ) CARD(8), BLANK 
WRITE (8,110) CARO 

IF (CARD(l) .NE.lOH SEND ) GOTO 10 
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REWIND 8 
CALL OATE(DAT) 

CALL TinE(TIN) 

WRITE (6>A0) OATfTIH 
RETURN 
C 
C 

40 FORMAT l//10X*«DATE IS «»A9/ 
A 10X>*T1HE IS *»A9) 

50 FORMAT ( R AlC# A10*A9 ) 

55 FORMAT (R2»A10>A10f A8 ) 

60 FORMAT (R2«7A10) 

70 FORMAT (IHl) 

80 FORMAT (A8>A2) 

90 FORMAT (1CX>8AX0) 
lOO FORMAT (A2»A8» 

110 FORMAT (8A10) 

ENO 


86 
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SUBROUTINE SC ALE ( X, XL> NPTS« INC* IDIV* IP APER ) 

input data ********** 

X - ARRAY containing DATA TO BE SCALED 
XL - LENGTH OF AXIS IN UNITS OF GRAPH PAPER 

NPTS-NO. OF DATA POINTS IN X ARRAY TO BE SCALED* NOT NECESSARILY THE 
DIMENSION OF X. 

INC- FREQUENCY OF DATA TO BE SCALED IN X ARRAY. 

POSITIVE VALUE YIELDS FIRSTV AS MINIMUM AND POSITIVE DELTAV. 
negative value yields FIRSTV AS MAXIMUM AND NEGATIVE DELTAV. 
lOIV-NO. OF MINOR DIVISIONS PER UNIT LENGTH OF GRAPH PAPER 
IPAPER-1 IF INCH PAPER 

2 IF CENTIMETER PAPER 
********** OUTPUT DATA ♦♦♦♦*♦♦*♦♦ 

X(NPTS^l) ■ LEFTMOST VALUE OF AXIS 
X(NPTSP2I > DATA UNITS PER INCH OF AXIS 

********** WORKING DATA *♦♦♦*♦*♦*♦ 

OX - GRID INTERVAL OF ONE MINOR DIVISION SUCH THAT DX-A*10«*B 
XN ■ NO. OF MINOR DIVISIONS IN ENTIRE AXIS 
Y ■ DATA UNITS PER INCH 


IMPLICIT REAL! A-H*0-Z) 

DIMENSION X(1)*SFACT{2) 

DATA SFACT/1.*2.5A/ 

NCR-IABS (INC) 

NARRAY-NPTS*NCR 
XMIN- I.EIO 
XNAX--1. EIC 
00 10 I»1»NaRRAY*NCR 

XMIN-AMINK XMIN,X(I ) ) 
XMAX-AMAX1(XMAX*X(I) ) 

10 CONTINUE 

XN-XL*FL0AT(ID1V) 

D-AMAXl (XMAX-XMIN*1.E-10) 
Ml>AL0G10(D/XN)-2. 

DO SO 1-1*20 

B-FLOAT(Ml-H) 

DO AO J-l*3 

IF(J.EO.l) A-1. 

IF(J.E0.2) A-2. 

IF(J.E0.3) A-5. 

OX-A*10.PPB 
X1NT1-AINT( XMIN/OX) 
Y-DX*FLQAT(1DIV) 

IF (XMIN.GE.O. ) GOTO 20 
XLO-XINT1*OX-OX 

XL0-XL0-Y+'AM00(ABS(XL0/Y)*1.)*Y 
GO TO 30 
20 CONTINUE 

XLO-XINTIPOX 

XLO-XLO-AMOD(ABS <XL0/Y)»1.)*Y 
30 CONTINUE 

XHI-XLO+XNPOX 
IF (XHI.GE.XMAX)GO TO 60 
AO CONTINUE 
SO CONTINUE 
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CONTINUE 

IF(lNC.LT.O)GO TO 70 
X(NPTS*INC>1)-XL0 
X(NPTS*INC*1NC*1)-Y*SFACT(IPAPER) 
PETURN 

CONTINUE 

X(NPTS*NCR*1)«XHI 

X(NPTS*NCR*NCR*11 —Y^SFACTI IPAPER) 

RETURN 

END 
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SUBPOUT INE AXIS (XP,YP, I BC0,NCHAR,XLN6TH, ANGLE* FIRSTX>DELTAX. 

« H*DBAt IPAPER ) 

C «**«««*«•* INPUT DATA tt******** 

C XP - X coordinate of STARTING POINT OF AXIS* INCHES 

C YP • Y COORDINATE OF STARTING POINT OF AXIS* INCHES 

C IBCO ■ TITLE OF AXIS 

C HCHAR • NO. OF CHARACTERS IN AXIS TITLE. 

C POSITIVE VALUE PLACES TITLE ON COUNTERCLOCKWISE SIDE OF AXIS. 

C NEGATIVE VALUE PLACES TITLE ON CLOCKWISE SIDE OF AXIS. 

C XLNGTH > LENGTH OF X AXIS IN UNITS OF GRAPH PAPER 

C ANGLE • ANGLE FROM NORMAL X AXIS TO DRAW AXIS* DEG 

C FIRSTX - STARTING VALUE OF AXIS IN DATA UNITS 

C DELTAX ■ DATA UNITS PER INCH 

C H > HEIGHT OF AXIS ANNOTATION* INCHES 

C DBA - DISTANCE BETWEEN ANOTATION IN UNITS OF GRAPH PAPER 

C IPAPER • 1 IF INCH PAPER 

C 2 IF CENTIMETER PAPER 

C 
C 

IMPLICIT REAL(A-H,0-Z) 

DIMENSION IBCD(1)*SFACT(2) 

DATA SFACT/1.,2.5AZ 
C 

XL-XLNGTH/SF ACT (IPAPER) 

ADIS-DBA/SFACT( IPAPER) 

ZNUM»DELTAX/SFACT( IPAPER )*DBA 
CALL EXPN(ZNUM,5000.. lEXP) 

DRAW AXIS 

CALL PLOT(XP*YP,-3) 

CALL PLACE(XL*0.>ANGLE»XA,YA) 

CALL PLOT(XA*YA*2) 

C 

C LABEL AXIS 

NCR-IABS (NCHAR) 

IF(IEXP.EO.O) X«XL/2.-FL0AT(NCR) /2.*H 
IF (lEXP.NE.O) X-XL/2.-FL0AT(NCR+4)/2.*H 
IF (NCHAR.LE.O)Y— 3.YH-.1A 
IF (NCHAR. GT .0)Y» 2.PH+.14 
call PLAC£( X»Y,AN6LE*XA»YA) 

CALL SYMBOL (X A* YA*H* I BCD* angle* NCR) 

IF( lEXP.EO.OGO TO 10 
X»X4FLQAT(NCR+1)PH 
CALL PLACE(X*Y*ANGLE*XA*YA) 

CALL SYMB0L(XA*YA*H*AH* 10*ANGLE*A) 

X-X+4.PH 

Y«Y*.70*H 

CALL PLACE(X*Y*ANGLE*XA*YA) 

CALL NUMBER(XA*YA*H*.666*FL0AT(IEXP)» ANGLE*-1) 

10 CONTINUE 
C 

C ANNOTATE AXIS 

XNUM-FIRSTX/10.»*IEXP 
OELX«OELTAX/10.**IEXP 
X0IS«0. 

20 CONTINUE 

CALL PLACE(XDIS*0.*ANGLE*XA*YA) 
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CAU. PLaT(XAfYA«3) 

X-XOIS 

IF (NCHAK.LE.O) Y — .07 

lP(NCHAR.GT.0)Y-.07 

CALL PLACE(X*Y,ANGLE>XA>YA) 

CALL PLOT(XA»YAf 2) 

CALL ALPHA(XNUn* ANUn«NC) 
X«X0IS-FL0AT{HC/2)*H 
IF(NCHAR.LE.0»Y--1.5PH-.07 
IF (NCHAR.GT.O)Y> 0.5*H«.07 
CALL PLACE(X»Y«ANGLE«XA«YA) 

CALL SYHBQLCXA.YA.Hf ANUn«ANGLE»NC) 
XNUn-XNUn>OELX«AOIS 
XOIS-XOIS+AOIS 
IF(XOIS.LE.XL) GOTO 20 


CALL PL0T(-XP,-YP,-3> 


RETURN 


END 
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SUBROUTINE EXPN(XNUH,XLIN1T,IEXP) 

C DETERMINE EXPONENT QE NUMBER. EXPONENT IS DIVISIBLE BY 3. 

C «*«*#«**«* INPUT DATA <$********* 

C XNUM > FLOATING POINT NUMBER. MAXIMUM OF 10 CHARACTERS. 
C XLIMIT > IF NON-ZERO. AN EXPONENT IS CALCULATED ONLY IF 
C XNUM IS GREATER THAN XLIMIT. 

C OUTPUT DATA 

C lEXP > VALUE OF EXPONENT 
C 
C 

X>ABS(XNUM) 

Z-AL0610(X) 

IEXP>INT(Z-AMQ0<Zf3.)) 

RETURN 

C 

10 CONTINUE 
IEXP-0 
RETURN 
END 
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SUBROUTINE COUNT ( TITLE> NCMAX# NC ) 

C COUNTS CHARACTERS IN A TITLE 
C 

C ********** INPUT DATA ********** 

C TITLE - ALPHANUMERIC ARRAY TO COUNT 
C NCMAX - MAX PERMISSIBLE CHARACTERS IN TITLE 
C ********** OUTPUT DATA 
C NC • NO. OF CHARACTERS IN TITLE 
C 

IMPLICIT REAL(A-H»0-Z) 

DIMENSION TITLEm. 1(80) 

C 

DO 10 I-lfNCMAX 
Z(I)-10H 
10 CONTINUE 
C 

ENC0DE(10»20^FMT) NCMAX 
20 F0RMAT(lH(f IZ.3HAD) 

C 

DECODE(NCMAX,FMT, TITLE) Z 
C 

DO 30 I-1»NCMAX 

IF (ZtNCMAX+l-I ) .NE.IH ) GOTO AO 
30 CONTINUE 
I-NCMAX 
C 

AO CONTINUE 

NC-NCMAX+l-I 

RETURN 

END 



SUBROUTINE ROUND(XNUH>IOIG) 

C NUMERICALLY SOUNDS A NUMBER (XNUH) TO (IDIC) NO. 
C OF DIGITS IN AN E FORMAT. 

C 

C t********* INPUT DATA •♦♦♦♦♦♦♦*• 

C XNUM • FLOATING POINT NUMBER 
C IDIG - NUMBER OF DIGITS TO RIGHT OF 
C DECIMAL POINT 

C *««««#«*«* OUTPUT DATA ♦♦♦♦♦*♦**♦ 

C XNUM > ROUNDED FLOATING POINT NUMBER 
C 

OIMENSION ANUM(2) 


IDIG>MIN0(IDIG«1A) 

IFLD»I0IG-»6 

ENC0DE<8,10»FMT)IFLD»I0IG 
la F0RMATI2H(E»I2,1H.,I2»1H) ) 
ENCODE ( I FLD,FMT,ANUM) XNUM 
DECODE! I FLOtFMTfANUM) XNUM 
RETURN 
END 
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DESCRIPTION 

Purpose: To generate CalComp plots of data residing on a random access file 

produced by NEMAR and containing all output parameters of NEMAR. 

Input: NAMELIST format - title information, selection of plot parameters, 

axis lengths, paper selection, etc. 

Output: List of input data, data plotted, CalComp plots 


DOCUMENTATION 
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